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ATARI 


by Jeff Brenner 


“Applying The Atari” is two — 


years old this month! And 
‘we're going to celebrate with 
August’s feature program: a 
practical computerized phone 
directory program. 

_ Since the inception of “Ap- 
plying The Atari,” in August 
1984, we have been steadily 
gaining new readers, in spite of 
Atari’s incredible instability 
during that period of time. But 
the present outlook for Atari is 
healthier than it has been for 
years. The ST line has been a 
wonderful success, and Atari’s 
130XE is selling strong. And 
now Atari is arousing excite- 
ment in a completely different 
league with its anticipated 
CAD/CAM machines. 

-And what does the future 
hold for “Applying The Atari?” 
As I have said in the past, this 
column will remain devoted to 
the 8-bit line. Atari, too, has 
pledged to continue supporting 
the 8-bit line with software 
and hardware, such as an 80- 
column card due to be released 
this month and 3.5 inch disk 

drives. Many ST-owners have 
been asking for ST-compatible 
“Applying The Atari” disk- 
-ettes, and if the interest is 
strong enough, I will create 
two versions, 8-bit and 16-bit, 
_of future “Applying the Atari” 
programs. Any such ST listings 


would be printed in a separate 


article or section, though, and 
would not take away from 8- 
| bit Atari space. Let me know 
if you’re interested. 


Reader Mail 


Dear Jeff: 

| While reading the “Atari 
| Help” column in the April 1986 
issue of Computer Shopper, I 
became very interested in the 
name “Omniview,” which was 
/mentioned by Mr. Alan Mc- 
Pherron. In the article, Mr. 
-McPherron was complaining of 
| the poor performance of his 
/ monitor. The paragraph was 
entitled XL “Video Smears,” 
-and concerned characters 
which were not clear. He con- 
cluded the article by relating 
that he was considering the 
/Omniview for his XL, but 
| elected not to because his video 


with 40 columns. To put it in 
anutshell, what is Omniview? 
In closing, regarding Mr. Mc- 
| Pherron’s problem, I am using 
-a Zenith monitor, Model 


probelms were bad enough 


COMPUTER SHOPPER, AUGUST 1986 


Fieeeemertstatesneasiraeaegeeaiton-sneasemanenroastees 


Applying The Atari 


ZVM-1220-A, and my char- 

acters are superbly sharp. The 

price was only $99.00 and I am 
perfectly satisfied. 

Thomas H. Connors 

SSG, US Army Europe 


A. Omniview is an 80- 
column adapter which allows 
the Atari to display 80 
characters per line when used 
with software designed for it. 
Mr. McPherron was concern- 
ed that since he could not get 
a sharp display with Atari's 
normal 40-column screen, an 
80-column screen would make 
matters worse. Many 800XL 
owners have written to me 
about the blurred-character 
problem, which is apparently 
caused by the 800XL’s lack of 
chroma pin output (used with 
a monitor). Still others have 
said they have not had any 
problem at all. 

For those suffering with XL 
“video smears,” a simple hard- 
ware remedy, submitted by 
Ricky J. Burgett, was pub- 
lished in the June 1986 column. 


And while on the subject of 


video displays: 


Dear Jeff: 

I use a Sharp 7 system clei 
TV for a monitor. I think my 
RF modulator is FUBAR be- 
cause since I have had the XL 
I would get red and green ver- 
tical bars on the screen after 
about an hour of use. Also, 


turning on my printer made 


my display unreadable. A 
friend pointed out that his TV 
was supposed to be a “moni- 
tor/TV” and tried using a five 


pin din to RCA stereo cable to 


connect the video output to the 

VCR input on his monitor/TV. 

It works very nicely. We have 

a super sharp picture with ab- 
solutely no interference. 

Mike Blevins 

APO, New York 


A. I’ve printed your diagram 
under Figure 1. Thanks for 
sharing it. 


Dear Jeff: 

Now that I have a XM301 
modem and two of the fastest 
“disk drives” around (RAM- 
DISKS) and a 1050 drive, I 
have thought about putting up 
my own BBS. I would like to 
be able to put a large message 
and upload/download base for 
public domain software, but 
the hardware to interface Atari 


5 PIN DIN PLUG 


3= AUDIO 
4=VIDEO 


2=GROUND 
Figure 1 


hard drives and 8 inch floppies 
cost mega bucks! I was looking. 
through the Computer Shop- 
per and had a thought. What 
if an interface could be built 
and programmed (with an EP- 
ROM burner) to interface the 
lesser expensive 1OMB driver 
and IBM drives. I have seen 
used and untested drives 
around $50-$160!!! The 
ATR8000 would (I hear) inter- 
face these drives, but the cost 
is way out of my range. 
Patrick Presley 
Tumberton, Texas 


A. While I’m sure it would 
be possible to build the type of 
interface you write of, it would 
be an enormous task, and I, for 
one, certainly would not want 
to undertake it. Designing the 
hardware is difficult and time 
consuming as it is. Designing 
software from scratch for your 
new interface is then an addi- 
tional burden. People who un- 
dertake such projects are usual- 


ly those who ultimately intend | 


to market a finished product, 

such as the ATR8000. Other- 
wise you may feel the effort is 
just not worth it. 

Since you already have 
RAMdisks, 
yourself quite a powerful 
bulletin board by adding a 


hard disk drive specifically 
designed for your Atari. Supra | 


Corporation (1133 Commer- 
cial Way, Albany, OR 97321) 
sells a IOMB hard disk, which. 


includes a hard disk DOS, for ~ 


$799. True, this too may be out 
of your price range, but if you 
are very serious about running 
a bulletin board, you should 
consider it. The drive could, of 
course, be used for other ap- 
plications when your bulletin 
board is not on-line. Supra also 
sells it’s hard disk interface 
separately for $250. 


ATARI XLIXE VIDEO OUPUT brene 


you can build jf 


RCA PLUGS (OR WHATEVER IT 
TAKES) 


CONNECT TO VCR AUDIO/ 
VIDEO INPUTS, NOT ANTENNA 


Book Winner 


Congratulations to Gene 
Gnandt of Houston, Texas. 
Gene won WSI’s Atari XL 
User’s Handbook ($15.95, 
Weber Systems Inc., 8437 
Mayfield Road, Cleveland, 
OH 44026) in April’s random 
drawing. 


Newsletters 


This month’s mail brings the 
newsletter of the High Sierra 
Atari Users Group (P.O. 
2152, Sparks, NV 89432), the 
thick JACG Newsletter from 
the Jersey Atari Computer 
Group (14 Whitman Drive, 
Denville, NJ 07834), and the 
N.O.A.U.G. newsletter of the 
New Orleans Atari Users 


Group (5630 Jefferson Hwy., 
Harahan, LA 70123). 


Atari Telephone Master: 


Atari Telephone Master lets 
you record and recall all of 
your telephone numbers. One 
or two numbers can be stored 
for each person. In addition, 
Atari Telephone Master allows 
you to record the address and 
a note for each person on file. 
A directory command gives 
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you a complete, alphabetized 
directory of all numbers. 

The program is listed under 
the “Atari Telephone Master” 
heading. It’s a long program, 
so I urge you to use Program 
Perfect if you’re typing in the 
program. A minimum of 32K 
RAM and a disk drive are re- 
quired to use Atari Telephone 
Master. 


Running The Program 


Once the program has been 
entered, save it to diskette. 
Now RUN the program. You'll 
be asked to “Insert Data Disk 
And Press Return.” You can. 
use the same diskette that the 
program was saved on, or you 
can use a blank, formatted 
diskette if you want to store as _ . 
many names as possible on a 
single diskette. Depending on 
the disk drive density being 
used and the amount of 
memory in your computer, you 
can store hundreds of names on 
a single diskette. 

When your data diskette is 
in place, press Return and 
you'll be told, “No Phone File 
On This Diskette,” and then 
asked, “Create a File On This 
Disk?” Since this is the first 
time you are using the pro- 
gram, you must create a file, so 
press Y. To store as many 
names as possible to a single 
diskette, you may choose to in- 
sert a blank, formatted diskette 
before you press y. 


The next screen is the main 
display. Photo 1 shows this 
screen on a preliminary version 
of the program. The current 
version displays in the upper- 
left corner of the screen the 
number of names in memory at 
any time, and the maximum 
number of names allowed by 


continued on page 78 
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All across America Atari_ 


owners are digitizing them- 
selves, their families, neigh- 
bors, cars, disk drives, shoes 
and anything else that can 
stand still for nine seconds, 
thanks to Digitial Vision’s 
ComputerEyes. In another 
dimension of excitement, Atari 
owners are digitizing their 
voices, musical instruments, 


breaking glass, and barking 


dogs, among other sounds, 
with Covox’s Voice Master. 
And now Alpha Systems will 
certainly put many more sound 
digitizers into Atari owners’ 
hands with its Parrot sound 
digitizer. At $39.95, hardware 
and software included, Parrot 
costs less than half the price of 
Covox’s $89.95 Voice Master 
and offers comparable sound 
digitizing performance. 


You Get What You Pay For? 
The secret to Alpha System’s 
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Applying The Atari 
continued from page 77 


your system. Additionally, the 
current version displays the 
following commands in the 
Command box: Find, Add, 
Print, Edit, Quit and # Dir. 

The first thing you’ll want to 
do is add names. Press A for 
this command. The cursor will 
appear in the Name box. Type 
the first name followed by the 
last name (with middle names 
or: initials between them, of 
course) and press Return. The 
cursor will appear in the Phone 
1 box. If you need to move 
back to the Name box, use the 
control-cursor keys ‘or the 
Delete key to bring the cursor 
to the left-most side of the box 
and press Delete. © 


In the Phone 1 box, type the 
phone number. If an in- 
dividual has two telephone 
numbers, type the second 
number in the Phone 2 box, 
otherwise press Return and the 
cursor will move into the Ad- 
dress box. The Select key can 
also be used to move to the next 
box. | 


Up to three lines can be 
typed in the Address box. If 
you only need two lines, simp- 
ly press Return on the third 
line, or press the Select key. 
Finally, the Notes box is for 
any information about the in- 
dividual you want to jot down. 
Since this information is 
printed along with each name 
when a phone directory is 
listed, you might want to 
describe the individual’s rela- 
tion to you (i.e. doctor, at- 
torney, etc.), or you can store 
temporary information that 
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rrot Sound Digitizer — 


low price is apparent im- 
mediately upon opening the 
package. I was not sure if some 
fellow Atarian had invaded my 


mailbox or if I was the victim 


of some awful mail order 
fraud. Inside was a paddle 
game controller with a 


can be deleted later (i.e. “This 
guy owes me eleven bucks’). 
Up to five lines can be typed in 
the Notes box. When you’re 
done, type Return on a blank 
line or press Select. The infor- 


_ mation you have entered will 


be saved to disk and the cursor 
will reappear in the Name box 
so vou can type the next name. 

When you have finished 
entering names and numbers 
for a session, press the ESC 
key. The names will then be al- 
phabetized, additional data 
will be saved to the diskette, 
and you will be returned to the 
Command prompt. 

One note about the com- 
mand box before we learn 
about the other commands: All 
instructions and error messages 
are displayed on the last line of 
the Command box, so it’s a 
good idea to keep an eye on 
that part of the screen. 

The Find command allows 
you to look up a particular in- 
dividual’s number, address, 
and notes. Press F and then 


type the name of the in- | 


dividual. It is not necessary to 


_ type the full name of the per- 


son; only the last name, or even 
an initial and a last name (i.e. 
type Smith or T. Smith to find 
Theodore Smith). Of course, if 
your data file contained a 
Theodore Smith and a Tom 
Smith, you would have to type 
the full name to get the person 
you want. If the name is not 
found, you'll get a “Not 
Found” message in the Com- 
mand box. . 

Once you have found a 


name, or whenever a name/ 


number is displayed on the 
screen, you can press E at the 


microphone jack in it (actual- 
ly half of a two-paddle con- 
troller; the other paddle had 
been cut off), a jumper wire, 
an instruction manual and a 


diskette. My suspicions were 


alleviated slightly when I 
began reading the instruction 


“COMMAND:” prompt to 
add, change or delete any of 
the information on the screen. 
Use. the control-cursor keys to 
move within a box, and the 
Select key to move to the next 
box. Pressing Delete when the 
cursor is in the upper, left hand 
corner of a box will bring the 
cursor. to the previous box. 
When you have finished 
editing, press the ESC key and 
the changes will be saved. 
Press P to printout the infor- 
mation currently displayed on 
the screen (if you have a 
printer). If you just wanted to 
look up someone’s number, 
you could use the Find com- 
mand to look up the number, 
print it on the printer and drag 
the sheet to the telephone. 
The # DIR command (press 
D) gives you a printout of all 
the names and addresses, 
phone numbers and notes on 
your diskette. The names are 


.alphabetized and printed last 


name first, so the pages of this 
printout can be stapled _ to- 
gether and used as a personal 
phone directory. If you want to 


interrupt the printing of the 


directory, press ESC. 

The Quit command ends the 
program and brings you to the 
BASIC “Ready” prompt. Un- 
like the June 1986 Budget- 
Mate, it is not a necessity that 
you end with the Quit com- 
mand; you won't lose any data 
if you just shut off the com- 
puter (provided you are at the 
“Command:” prompt and not 
in the middle of some opera- 
tion). However, it is a good 
practice to end with a Quit 
command, so make it a habit. 

I hope you enjoy the Atari 


manual. Sure enough, right 
there on page eight was a 
drawing of the half-of-a- 
paddle-controller sound 
digitizer. Still, I was disap- 
pointed. I wouldn’t even leave 
my own hardware projects in 


such a raw state. Alpha 


Systems could make their cus- 
tomers a lot more satisfied by 
charging five or ten dollars 
more and sticking the device in 
a cheap project box. 


But It Works! 


Unlike Voice Master, Parrot 
does not include its own micro- 


phone. You can either plug 


your own microphone into the 
input jack, or use the jumper 
wire to connect the Parrot 
directly to a sound source, such 
as the output jack of a cassette 
player or radio. 

The sound digitizing, or 
sampling, is performed 
through the Parrot Sampler 
Program included on the 
diskette. The paddle dial is 


Telephone Master. Some of 
your BASIC programmers may 
want to add additional com- 
mands to make this program 
even more powerful. One that 
immediately comes to mind is 
an autodialer, for those of you 
with autodial modems. The 
string variables PHONE1$ and 
PHONE2$ contain the phone 
numbers that appear on the 
screen.at any time, and you 
could easily add a “CALL” 
command which would auto- 
matically dial up the person on 
the screen. 


Next Month — 

We'll learn ‘how Atari 
Telephone Master works, and 
we'll have more reader mail, 
new products, and a surprise 
program to start off the third 
year of “Applying The Atari.” 

Readers’ questions, com- 
ments and contributions are 
welcome. Please enclose a self- 
addressed, stamped envelope 
(SASE) for a personal reply. 

A diskette of this month’s 
program is available from the 
author for $7.00, postpaid. 
Please make checks payable to 
“Jeff Brenner” and specify your 
disk drive model. 

“Program Perfect” is a utili- 


ty used to check for typing er- 


rors while entering programs 
from this column. Readers may 


send $5.00 for a diskette or a 


SASE for a listing of this 
program. 

Address all correspondence 
to: Jeff Brenner, “Applying 
The Atari 8/86”, c/o Computer 
Shopper, P.O. Box F, 
Titusville, FL 32781. © 
Programs for Applying The 
Atari shown on pgs. 204, 206. 


used to “fine-tune” the digitizer 


as you whistle into the micro- 
phone (or play a tape) until an 
acceptable quality of sound is 


~ heard through the television 


speaker. The sound quality 
that you achieve through the 
fine-tuning procedure will be 


the same that you get when 


you begin the actual sound 
sampling. | 

Digitizing with a micro- 
phone was easy enough. After 
fine-tuning, I selected the 
Record option, spoke a few 
words, and then used the Play- 
back option to hear my Atari 
speak by words. The Parrot’s 
sound quality was comparable 
to Voice Master’s, although 
this will vary from user to user 
depending upon the quality of 
the microphone and the nature 
of the sound source used. 

Sampling from a cassette 
player proved to be much more 
difficult than with a micro- 
phone. In addition to the pad- 
dle dial, it was necessary to ad- 
just the volume, treble and bass 
controls to get an acceptable 
sound sample, but I could not 
achieve the same level of qual- 
ity I had with the microphone. 
The solution, I found; was to 
tape the microphone to one of 
the ear-pieces of headphones 
that were plugged into the tape 
player. That seemingly non- 
productive maneuver increased 
the sound quality from the tape | 
recorder dramatically. Also, - 
you ll want to use a battery | 
operated tape player or radio 
when sampling from these . 
sources; anything plugged in- 
to the house current tends to 
produce excessive interference | 
in the resultant sound sample. | 

In addition to the fine- | 
tuning, record, and playback 
options, the Parrot Sampler | 
Program also allows you to | 
save samples to disk for later 
retrieval. 


The Emulator 


Included on the Parrot § 
diskette is the Emulator Pro- | 
gram, an excellent sound § 
editing program that easily | 
compensates for the cheap § 
digitizer hardware. Modeled § 
after an expensive music syn- & 
thesizer of the same name, the § 
Emulator Program lets you use § 
your: Atari keyboard to play 
you sampled sounds. You can 
edit and combine sound files, 
plot the sound waves on af 
graph, and even change the ac- 
tual sound. | 

The Emulator offers nine § 
tracks in which sound data can § 
be stored; thus as many as nine} 
different sounds can reside in 
memory at once. Sampled¥ 
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TELEPHONE MASTER IMJ 1168 U=PEEK (93) 
OWJ 1179 IF KC=@ THEN GOSUB 1320:IF M$(1, Z)=C32%(1, Z) THEN RETURN 

~CQJ 1196 IF E=155 THEN KC=-1 

UBJ 1199 IF U<>89 AND U<>85 AND U<128 THEN 1230 

JKJ 1208 IF E=155 THEN RETURN 

XTJ 1219 IF E=155 THEN 12798 

OVJ 1228 POKE 85,XT:POKE 84,YT:PRINT CE$; 

BCJ 1236 IF E<>126 THEN 12798 
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ATART 


ASJ 10 REM ATARI TELEPHONE MASTER 

KGd 20 REM COPYRIGHT 1986 JEFF BRENNER 

XE 30 FM=FRE (0) -1590: MAX=INT (FM/32) 

SFJ 40 DIM NAMES (FM) : NAMES=CHR$ (@) : NAMES (FM) =CHRS (8) : NAMES (2) =NAMES 
HkJ S® DIM CE$(2), INV$(59) :CES=CHRS (39) : CES (2) =CHRS (31) 

QF3 68 RESTORE 78:FOR I=1 TO 59: READ Nz: INV$(1, I) =CHRS(N) NEXT. I 

OGI 78 DATA 184,194, 104,178, 165, 88, 133, 208, 165, 89, 133, 289, 194, 194, 168, 249,14 | YRJ 1248 XT=PEEK(85):POKE 85,XT—1:PRINT CES%; 2U=PEEK (935) :POKE 85, XT 
ROI 8@ DATA 24, 165, 208, 195, 4G, 133, 208, 165, 299, 195, 8, 123, 289, 136, 208, 240, 24,138 CNJ 1258 IF U=89 OR U=85 OR U>127 THEN PRINT CE$;:GOTO 1288 

OHI 98 DATA. 181,208, 133, 208, 165, 289, 195, 8, 133, 289, 194, 194, 168, 136,177, 208, 72 ‘ SUJ 1269 PRINT CHR$(E) ; 


RLU 188 DATA 128, 145, 208, 126,16, 247,96 DSJ 1278 GOTO 746 


CRI 128 DIM C328 (SO) :C32% (1) =CHRS (32) s C32$ (5B) =CHRS (32) :C3B2$ (2) =C32S SLJ 1290 IF ST=5 AND PEEK(84)>18 THEN POKE 84,PEEK(84)~1:PRINT CE$;:GOTO 1270 
CEJ 120 DIM C21$(58) :C21$ (1) =CHRS (21) :C21% (5) =CHRS (21) :C21% (2) =C21$ SJJ 1588 IF ST>1 THEN POP :ON ST GOTO 836,856, 840,850, 868 


NCJ 148 DIM C149$(S@) :C149$=CHRS (149) :C149% (58) =CHRS (149) :C149% (2) =C1 498 FGJ 1319 GOTO 1278 
UVI 158 DIM DE$(28) : DES=CHRS (154) : DES (28) =CHRS (154) : DES (2) =DES OHJ 1328 POKE 84,YT: INPUT #2;M$:POKE 85, XT:PRINT CES; :RETURN 
AJJ 168 DIM ABC$(198): RESTORE 179:FOR I=1 TO 198:READ N:ABCS(1,1)=CHRS(N):NEXT I _ CDI 1338 POSITION 7,4: INPUT #2;NM$:A=USR (ADR (INVS),7,4, 26) 
MAJ 178 DATA 14, 194, 133, 204, 194, 133, 203, 104, 133, 212, 194, 133, 211, 184, 194, 133 HUJ 1548 POSITION 4,8: INPUT #2;PHONE1$% 

JNJ 188 DATA 289, 145, 203, 133, 207, 165, 204, 133, 208, 162, 9, 134, 218, 134, 213, 232 OND 1558 A=USR(ADRCINVS) , 4,8, 15) sPOSITION 21,8: INPUT #2; PHONE2$ 
HSJ 198 DATA 165,207, 133, 205, 24, 181, 289, 133, 207, 165, 208, 133, 204, 195, 9, 133 NVJ 1366 A=USR (ADR CINVS) , 21,8, 15) 

ATJ 288 DATA 288, 148, 8, 177, 207, 209, 205, 24, 4, 144, 9, 176, 27, 208, 196, 209 XPJ 13578 ADDR$="":FOR I=12 TO 14:POSITION 7,1: INPUT #2;MS 
MJJ 218 DATA 176,22, 144, 239, 164, 209, 132, 219, 136, 177, 207, 133, 214,177, 205, 145 A=USR (ADR CINVS), 7,1, 26) 

HEJ 228 DATA 207,165,214, 145, 205, 136, 16, 241, 232, 208, 2, 230, 213, 228, 211, 288 NIJ 1596 ADDRS (LEN(ADDRS) +1) =M$ (1,26) 2NEXT I | 
HFJ 238 DATA 191,165,232, 197, 213, 208, 185, 165, 219, 208, 166, 96 VES 1498 MEMOS="":FOR 1718 TO 22:POSITION 4,1: INPUT #2;MS 
UWd 24@ OPEN #1,4,9,"K:":OFEN #2,9,@, "E:":GOSUB 258:GOTD 286 =USR (ADR CINV$) , 4,1, 15) 

LEJ 258 GRAPHICS 6:FOKE 14,64: POKE 53774, 64:M$="ATARI TELEPHONE MASTER" OMS 1426 MEMOS (LEN (MEMOS) +1) =M$ (1,15) 2:NEXT I 

IVJ 260 GOSUB 70@:POSITION 9,@:PRINT M$:POKE 85,4 MEd 3858: NASSNe Cl 26) 


JDJ 278 PRINT "COPYRIGHT 1986"; CHRS (32) ;CHR$ (32); "JEFF BRENNER": RETURN XXJ 1448 FOR I=LEN(NM$) TO 1 STEP -1: IF NMS$(1,1)=CHRS(S2) THEN NEXT I 
Fk 288 M$="RETURN":GOSUB 78@6:POKE 85,4:POKE 84,4 | TYJS 1450 IF I=1 THEN 1518 

NCJ 298 PRINT “INSERT DATA DISK AND PRESS "“;M$:POKE 752, 1:PRINT DES(1, 4) NWJ 1460 FOR J=I-1 TO 1 STEP —1: IF NM$(J,J)<>CHRS$(S2) THEN NEXT J 

DUJ 388 POKE 764, 255:GET #1,N:POKE 752,90 UBJ 1470 IF J<2 THEN 15198 

ADJ 316 TRAP 32@:CLOSE #4:O0PEN #4,4,9,"D:NAME.DAT":GOTO 3990 LBJ 1488 M$=NM$(J+1, 1) 2M (LEN (M$) +1) =CHRS (32) 

WVI 226 IF PEEK(195)<>178 AND PEEK(195)<>134 THEN GOSUB 7290 MVJ 1490 MS$(LEN(MS) +1) =NMS$(1,3-1):1F I1<¢26 THEN M$ (LEN(MS) +1) =NMS(I+1) 
FLJ 330 POKE 85,5:PRINT “NO PHONE FILE ON THIS DISKETTE." REE, Dee: NAS SS 

HWJ 340 POKE 85,4:FRINT “CREATE A FILE ON THIS DISK (Y/N)?"3 | USJ 1518 INV=ADRCINV$) : A=USR (INV, 7, 4,26) : A=USRCINV, 4,8, 15) s A=USRCINV, 21,8, 15) 
X¥J 359 GET #1,Q0:PRINT CHRS(Q):IF Q@=78 THEN 280 CMJ 1526 FOR I=12 TO 14: A=USR(INV,7,1,26):NEXT I 

SYJ 360 IF Q@<>89 THEN PRINT CHRS (28) 3CHR$(156);:GOTO 349 XFJ 1530 FOR I=18 TO 22: A=USRCINV,4,1,15):NEXT I: RETURN 

NVJ 378 CLOSE #4:O0PEN #4,8,0,"D:NAME.DAT":CLOSE #4:OPEN #4,8,0, "D: PHONE. DAT” | FNJ 1548 DATA 6,2,9,21,26,15,155 
-WZJ 388 CLOSE #4:GOTO 46¢ JKJ 15590 DATA 6,3, 153,32, 26, 25,155 

UOJ 390 INPUT #4,NUM:NAMES="":FOR I=1 TO NUM DBJ 1568 DATA &,4,11,149, 11, 206, 193, 205, 197, 149, 11, 12, 155 

AXJ 499 INPUT #4;M$: NAMES (LEN(NAMES) +1)=M$:NEXT I:CLOSE #4 | JXJ 1578 DATA 2,5,155 

MRJ 418 TRAP 450:CLOSE #4:0PEN #4,6,0,"D:3.8" | BGJ 1586 DATA 3,6,9,21,15, 15,9,21, 15, 15,155 

TOJ 426 INPUT #4;MS: IF M$(5,8)<>"FREE" THEN 420 IYJ 1598 DATA 5,7, 1535, 52, 15,25, 155,52, 15, 25, 155 

QLJ 430 MN=VAL (M$) ¥125/2390: IF MN<MAX THEN MAX=INT (MN) . WIJ 1668 DATA 3,8, 11,149,4, 208, 209, 207, 206,197, 160,177 


GWJ 1618 DATA 149,4,12,11, 149, 4, 208, 200, 207, 204, 197, 169, 178 
TJJ 1620 DATA 149,4,12,155 
JYJ 1636 DATA 2,9,155 


WWJ 449 CLOSE #4:GOTO 468 
YDJ 458 CLOSE #4: MAX=NUM 


YSJ 469 GOSUB 1819:POSITION 22,19:PRINT CHRS(198);"IND #"; 
YOJ 478 PRINT C32$(1,2); ; CHRS (193) 5 "DD he HJJ 1649 DATA 6, 18,9,21, 26, 15, 155 

AW] 488 POSITION 22,28:PRINT CHRS (208); "RINT"; C32$ (1,3) 3 CHRS (197) 3 "DIT" LGJ 1650 DATA 4,11,153,32, 26,25, 155 

EEJ 498 POSITION 22,21:PRINT CHRS (209) 53 “UIT"3C32$(1,4)3"# DIR" _LId 1668 DATA 6, 12, 153, 52, 26, 25, 155 

LMJ 58@ A#USR(ADR(INVS),32,21,1) | . LEJ 1678 DATA 46,13, 153,32, 26, 25, 155 

SNJ 519 GOSUB 67@0:CLOSE #3:POSITION 38,18:PRINT “ “;CHRS(30)3:C1=8 YWI 1688 DATA 6, 14,11, 149,9,193, 196, 196, 218, 197,211, 211 


LUJ 528 CI=#1-C1:A=USR(ADRCINVS),21,18,8)s:FOR DL=1 TO 19:NEXT DL VJJ 1698 DATA 149,198,12,155 


NBJ S38 IF PEEK(764)=255 THEN 5298 : LFJ 1708 DATA 2,15,155 

NHJ 548 IF CI THEN A=#USR(ADRCINVS), 21, 18,8) CYJ 1718 DATA 3,16,9, 21,15, 15,9, 21, 15, 15, 155 

PFJ 55@ POKE 4594,9:POKE 702,64:SE=@:GET #1,Q: IF @>128 THEN Q=Q-128 . LDJ 1728 DATA 3,17, 153,52, 15,25, 153 

FAJ 5649 PRINT CHRS(Q): TRAP 49900 OVJ 1738 DATA &7,79,77,77, 65, 78, 68, 58, 32,7, 25,155 

CAJ 57@ IF Q=65 THEN EDIT=9:FIND=9:CLOSE #3:0PEN #3,9,9, “D: PHONE. DAT” KTJ 174@ DATA 3,18, 153,32, 15,25, 153, 32, 15, 25, 155 

LEJ S80 IF Q@=65 THEN GOSUB 769:GOSUB 2999 EVJ 1758 DATA 3,19, 155,32, 15,25, 155, 32, 15, 25, 155 

H2J 599 IF Q=78 THEN GOSUB 2149:GOTO 519 KOJ 1768 DATA 3,28, 153,32, 15, 25, 153,352, 15, 25, 155 

YDJ 69028 IF Q=81 THEN GRAPHICS 9@:END , KQJ 1778 DATA 3,21, 153,32, 15, 25, 153, 32, 15, 25,155 

BMJ 619 IF Q=69 AND FIND THEN EDIT=1:GOSUB 2969:GOSUB 769:GOSUB 2990 UMJ 1788 DATA 3,22,11,149,5, 206, 207, 212,197, 211,149,5 
MDJ 6298 IF Q@=68 THEN GOSUB 2989 UXJ 1796 DATA 12,11,149, 2,195, 207, 205, 205, 193,286, 196 
LVJ 638 IF Q@=898 THEN GOSUB 2689 YTJ 1889 DATA 168,194, 207, 216,149,2,12,255 

EPI 649 GOTO 519° NNJ 1818 RESTORE 1548:GOSUB 259 

WHI 650 FOR FL=1 TO 19:A=USR(ADRCINVS),XF,YF,LF):FOR DLAY=1 TO 19:NEXT DLAY TUJ 1826 READ X,Y:POSITION X,Y+1 

WLJ 668 NEXT FL:RETURN QFJ 1830 N=@:READ C:1F C=32 OR C=21 OR C=149 THEN READ N:GOTO 1879 
JAI &78 POSITION @,9:PRINT "NUM: ";NUM JTJ 1846 IF C=255 THEN RETURN 


_IJJ 688 POSITION @,2:PRINT “MAX: “3;MAX NBJ 1858 PRINT CHRS$(C);:IF C<>155 THEN 1830 
EFJ 698 RETURN : FRJ 1868 GOTO 18298 
ESJ 799 FOR I=1 TO LEN(MS) :MS$(I, 1) =CHRS (ASC (M$ (1, 1))+128) NEXT I: RETURN APJ 1870 IF C=32 THEN PRINT C32$(1,1); 
ERJ 718 FOR I=19 TO 22:POSITION 21,I1:PRINT C32$(1,15)3;:NEXT I: RETURN — AMI 1888 IF C=21 THEN PRINT C21$(1,N); 
FFJ 72@ PRINT CHRS(253);"ERROR #";PEEK (195) ; FJ 1899 IF C=149 THEN PRINT C149$(1,N)3 
KTJ 738 PRINT :PRINT *- PRESS 1989 GOTO 1830 


TO CONTINUE" FNJ 
VGJ 1919 IF EDIT=@ THEN NUM=NUM+1: IF NUM MAX THEN 2939 


1928 IF EDIT THEN HNUM=NUM:NUM=FIND:POINT #3,5,B:GOTO 1949 
“ESC WHEN DONE"; CHR$ (32) ; IEJ 1930 TRAP 205@:NOTE #3,S,B 
UFJ 1949 HS=INT(S/256) :LS=S-256%HS: F IND=NUM 


FUJ 749 IF PEEK(53279)<>6 THEN 7498 
VEJ 758 GRAPHICS 6: RUN 
NIJ 76@ POSITION 21,22:PRINT CHRS (32); 


CGI 776 A=USR(ADR(INVS) , 22,22,3):IF EDIT THEN 839 : 

EMJ 788 POSITION 7,4:PRINT C32$(1,26);:POSITION 4,8:PRINT C328(1, 15); URJ 1959 NMS (LEN (NMS) +1) =CHRS (HS) : NM$ (LEN (NMS) +1) =CHRS (LS) 

DHJ 798 POSITION 4,8:PRINT C32$(1,15);:POSITION 21,8:PRINT C32$(1,15)5 KOJ 1968 NMS (LEN (NMS) +1) =CHRS (B) 

FAI 888 POSITION 21,8:PRINT C32$(1,15); WES ae ee es Ao ces NUNES to eer 

GOJ 818 FOR I=12 TO 14:POSITION 7,1:PRINT C32$(1,26)3:NEXT I Yad Ae TE DE EN. ARSE (ADR (ABE ®) sQOn INA See alma. 

GFJ 828 FOR I1=18 TO 22:POSITION 4,1:PRINT C32$(1,15)3:NEXT I QUI 1999 PRINT #3; PHONE1$:PRINT #35; PHONE2S 

YJJ 830 POSITION 7, 4:L=33:Z=26:ST=1:GOSUB 92a FTJ 2009 PRINT #35;ADDRS:PRINT #5; MEMOS 

YOJ 849 POSITION 4,8:L=19:Z=15:ST=2:GOSUB 929 site pa toma THEN NUM=HNUM 

EK @5@ POSITION 21,8:L=36:2Z=15:ST=3:GOSUB 929 RETURN 

Be Gg ree cng G (iad cee gee ageges eacin ose MVJ 2038 POSITION 21,22:PRINT “TOO MANY NAMES “:A=USR(ADR(INV$), 21,22, 14) 

al 3 . o e oe he’ 

BRI 870 POSITION 4, 18:L=19:2Z=15:ST=5:GOSUB 929 CSJ 2049 RETURN 

Fai Ee CAG a NEA ROT LOE GeO) VKJ 2856 POSITION 21,22:PRINT “ERROR ";PEEK(195) ;C32$(1,6) 33 RETURN 

Ent BOe-LASta Gea aUeeen aie JFJ 2060 OPEN #3, 12,9, "D: PHONE. DAT": MS=NAMES (F IND¥29-—28, F IND¥29) 

Sun Capote Go ios DAE Eoieee Tew ee FKI 2878 HS=ASC (MS (LEN (M$) —2) ) : LS=ASC (M$ (LEN (M$) —1)) 

FAG: tbo Reeonal DIJ 2889 B=ASC (M$ (LEN(M$) )) : S*HS#2544LS 

ISJ 928 YH=PEEK (84) : XH=PEEK (85) :POKE 752,9 IYJ 20909 POINT #3,5,B:RETURN 

EZJ 930 KC=-1:PRINT CHR$ (3G) ;CHRS(31)3:POKE 764,255 AQJ 2196 NMS=NAMES (FIND%29—28,F IND#29) 

POO GAe HE PeECiSsiac Ie TEN HINT eins el ccs 105 RFJ 2119 HS=ASC (NM$ (LEN (NM$) —2) ) : LS=ASC (NM$ (LEN(NM$)—1) ) 

seg hehe es hae PEER IG ban eoes NDA ECSS IHEN S86 OCJ 2128 B=ASC (NMS (LEN(NM$) )) : S*HS#256+LS: NM$=NM$ (1, 25) 

DOC GLGPG SE GR Ease WEN Oe8 SUJ 2138 CLOSE #3:OPEN #3, 4,9, "DsPHONE.DAT":POINT #3,5S,B 

OG GFEMGOIRIO- bk GLNE PERC ERDTOI ae TAENe FRI 2149 INPUT #3;PHONE1$: INPUT #3;PHONE2$; INPUT #3;ADDR$: INPUT #3; MEMOS 

ca ote XYJ 2158 CLOSE #3:RETURN 

HJJ 988 SOUND 1,9,9,@:RETURN | 

Geeaven ec Le. oa nee van ia KWJ 2168 POKE 752,1:POSITION 21,22:PRINT “TYPE NAME";C32%(1,6)3;:POKE 752,9 
38s ’ 

MNJ 1986 GET #1,E:KC=KC+1:IF £=27 AND SE THEN RETURN ey SNe. Sea eie ee eer Peder. 352 

ails GES FEE 23 OA EEE (ESS LAER EPS) Co GEN POD a eOEuone DEJ 2180 POSITION 7,4:PRINT C32$(1,26);:POSITION 4,8:PRINT C32$(1, 15); 

Gen asase Pea: THEN ae i eaaee nee EZJ 2198 POSITION 4,8:PRINT C32%$(1,15)3;:POSITION 21,8:PRINT C32$(1, 15); 

CQJ 1938 IF E>31 AND EX91 AND PEEK(93)<289 THEN PRINT CHRS(E);:GOTO 940 GSJ 2268 POSITION 21,8:PRINT C32$(1,15)5 

Soar Meee Aes ee ioe ate eas 1GJ 2218 FOR I=12 TO 14:POSITION 7, 1:PRINT C32$(1,26)3:NEXT I 

bis ESO eo usks WENT Lado | IHJ 2226 FOR 1=18 TO 22:POSITION 4,1:PRINT C32$(1,15)5:NEXT I 

GWI 1960 POKE 85, XH:PRINT C32$(1,L-XH);:POKE 85,XH:PRINT CE%;:GOTO 949 NJJ 2258 POSITION 7,4:L=S5:2=26:5T=1:SE=1:GOSUB 928 

SEP AGAR TR Leone de Aube | ae HLJ 2249 POKE 752,1:POSITION 21,22:PRINT “PLEASE STAND BY"; 

AGJ 1980 T=PEEK(85):FOKE 85,L-1:PRINT CHR$(254);:POKE 85,T PMI 2258 A=USRIADRCINV$) , 21,22, 15) 

Bad. GSO cPRING Clale (Sac sees: CIJ 2260 POSITION 7,4: INPUT #23NM$:NM$=NM$ (1, 26) 

AUl Aiea Ae Ecoesa THEN iia. IGJ 22760 FOR I=LEN(NMS) TO 1 STEP ~1:IF NMS(I,I)=CHRS(32) THEN NEXT Is I=1 

FUJ 1119 T=PEEK(85):PRINT CHRS$(254)3:POKE 85,L-1:PRINT CHRS(255); PRS A eRe TP Tr) TEN, ENNSEEN ANN S? = COTO" 2520 

St Sa SareGLE (64 PEERINES CEE: NYJ 2298 FOR J=I-1- 70 1 STEP -1:IF NM$(J,J)<>CHR$(32) THEN NEXT J 
9 15 3 

NDJ 1130 IF E<28 OR £>31 AND E<>155 THEN 1236 ae peal Se SSNs COTO: 2508 

MCI 1149 XT=PEEK (85) : YT=PEEK (84) :PRINT CHR$(E);CES; #1, 1) 2MS (LEN(MS) +1) =CHRS (52) — 

KZJ 1150 IF E=15S THEN POKE 85, XH:XT=XH:PRINT CE$; 


rhe a A ae 
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Save Sanyo 
continued from page 88 


have a color monitor, you can 
still use the program, of course, 
but you won’t get the colors. 

Any program that saves the 
screen has to begin at the 
beginning. We have to know 
where our video screen starts. 
Now we've all read our Sanyo 
Operator’s Guide. Concerning 
the video RAM, I must say, this 
book is a masterpiece of terse 
obscurity. It devotes a single 
page to an explanation of the 
Sanyo’s video configuration. 
One page for this heavy sub- 
ject. I literally memorized the 


few lines on page 5-39, trying 


to understand it. I never did, 
that way. What I have learn- 
ed is from trial and error. Er- 
ror, mostly. 


COMPUTER SHOPPER, AUGUST 1986 


Try this, for instance. If 
you'd like to see where your 
screen begins, type DEBUG. 
When the prompt appears, 
type D40:107A. At this 
memory location you'll see the 


start of the video. If you’re us- 
ing the 3C00:0000 screen, 
which Sanyo calls page 2, you 


might see 00 00.00 3C. That 
means that your. screen 
memory at the moment starts 


at 3C00:0000. Yes, it does. 
Believe me. 


Okay, you don’t believe me. 


You want me to prove it. You. 


say, “If what you tell me is 
right, 
E3C00:0, then enter “F’’, and 
a big dot will appear ai the up- 
per left hand corner of my 
screen.” So you do all that, and 
the bar pops up in the middle 


Atari Telephone Master Program 
continued from page 204 


MOJ 2328 MS(LEN(MS)+1)=NM®(1,J-1):IF I1<26 THEN MS(LEN(MS) +1) =NMS (I+1) 

PDJ 2338 NMS=M$:FOR I=LEN(NMS) TO 1 STEP —1: IF NMS(I,1I)=CHRS(32) THEN NEXT I 
YYJ 2348 IF 151 THEN NMS=NMS (1, I-1) sLNM@=LEN (NMS) 

GQJ 2350 IF NMS=NAMES(1,LNM) THEN FIND=1:G0TO 2449 


UQJ 2360 F2isL=NUM: KT=0 


HF J 2376 OL=F INDs F IND=INT (F+(L-F) /2+8.5) 


JDJ 2388 IF OL@FIND THEN KT=KT+1: IF KT>3 THEN 2608 
VEJ 2399 IF NMS=NAMES (F IND&29-28,F INDS29-29+LNM) THEN 2449 
CNI 2488 IF NMS<NAMES (F INDS29-28, F IND&829-29+LNM) THEN L=FIND:GOTO 2429 


ALJ 2416 F=FIND 
UJJ 2428 IF L-F THEN 2379 
FIJ 2438 GOTO 2689 


DWJ 2449 GOSUB 2190: IF LNM=26 THEN 2590 


GOJ 2458 FOR I=1 TO LEN(NMS):IF NM$(I,1)<>CHRS$(32) THEN NEXT I:GOTO 2499 


DEJ 2460 IF I=1 OR I=LEN(NMS) THEN 2499 


DEJ 2479 MS=NMS (1+1,LEN(NM$)):GOSUB 2570: M$ (LEN (M$) +1) =CHRS (32) 

ARI 2489 M$ (LEN (MS) +1)=NMS$ (1, 1-1) : NMS=MS 

REJ 2496 POSITION 7,4:PRINT C32$(1,26)33POSITION 7,4:PRINT NM$; 

JHI 2500 POSITION 21,22:PRINT “FOUND";C32$ (1, 19) 5 sA=USR (ADR (INVS) , 21, 22,5) 


EKJ 2519 POSITION 4,8:PRINT PHONE1$; © 


GRJI 2526 POSITION 21,8:PRINT PHONE2$;:FOR II=1 TO 3:POSITION 7,11+I11 
TTI 2538 PRINT ADDRS (11826-25, 11826) 53:NEXT II 


HUJ. 2548 FOR 11=1 TO S:POSITION 4,17411 


UIU 2559 PRINT MEMOS (1115-14, 11815) 3:NEXT II 


CZJ 2568 RETURN 


EIJ 2579 FOR II=LEN(M$) TO 1 STEP ~1:IF MS(II, II) =CHRS(3S2) THEN NEXT II 
OkJ 25989 IF TIZLEN(MS) OR II=1 THEN RETURN 


DRI 2599 MS=M$(1, 11): RETURN 


LFJ 2698 POKE 752,1:POSITION 21,22:PRINT "NOT FOUND";C32$(1,6);sPOKE 752,90 
KYJ 2610 XF=21:VF=22:1F=9:GOSUB 659: F IND=@: RETURN 

OSJ 2628 CLOSE #3:0PEN #3, 12,9, "Ds PHONE. DAT” 

FMJ 2638 HS=ASC (NMS (LEN(NM$) ) ) :LS=ASC (NM$ (LEN (NMS) —1) ) : B=ASC (NMS (LEN (NMS) —2) ) 


OTS 2649 A=USR (ADR (ABCS) , ADR (NAMES) , NUM, 29) 
RMI 2650 S=HS8256+LS:POINT #3,5,B 
EMI 2660 PRINT #3;PHONE1$:PRINT #3;PHONE2$:PRINT #3;ADDRS:PRINT #3; MEMOS 


YFI 2678 CLOSE #3:RETURN 


ENJ 2688 POSITION 21,22sPOKE 752, 1:PRINT “PRINTING” 5C32% (1,7) 5 
THJ 2699 ASUSR(ADRCINVS),21,22,8): TRAP 2889:CLOSE #4:0PEN #4,8,9,"P:" 
ERJ 2708 PRINT #4; “NAME/ADDRESS";C326(1,15) 3; "PHONE 1°3C328(1,9)3 "PHONE 2"5 


SGJ 2719 PRINT #43C32$(1,9)3 “NOTES” 


FYJ 272@ PRINT #4; "------------ "$C32$(1, 15) 5 "---—--—" 5 C328 (1, 9) 3 "-----—— "5 


LWJ 2738 PRINT #43032%(1,9) 3 "----- " 


CJJ 2748 POSITION 7,4: INPUT #2;NM$: A=USR (ADR CINVS) , 7, 4, 26) 

I0J 2750 IF LEN(NM$)>26 THEN NMS=NM$ (1,26) 

MXJ 2768 POSITION 4,8: INPUT #2; PHONE1$3 AZ=USR (ADR CINVS) , 4,8, 15) 

QFJ 2776 POSITION 21,8: INPUT #23;PHONE2$: A=USR (ADR CINVS) , 21,8, 15) 

LDJ 2788 PRINT #4:PRINT #43; NM$3CHRS (32) 3 PHONE 1$3 CHRS (32) 5 PHONE 2$3 CHRS (32) 3 
KXdJ -2799 POSITION 4,160: INPUT #23;MS:sPRINT #43M%(1, 15) 

JUJ 2866 FOR I=12 TO 14:POSITION 7,1: INPUT #2;M$:A=USR(ADRCINVS),7,1, 26) 
KPJ 2819 PRINT #43M$(1,26)3:POSITION 4,1+7: INPUT #23;M$sPRINT #4; C328 (1, 33) 3 


PCJ 2828 PRINT #43$(1,15):sNEXT I 


AFJ 2836 POSITION 4,22: INPUT #23;MS$:PRINT #43C32$ (1,58) C326 (1,9) M$(1, 15) 
RBJ 2849 A=USR (ADR (CINVS), 7,4, 26) :AZUSR (ADR CINVS) , 4, &, 15) 


DAI 2850 A=USR (ADR CINVS) , 21,8, 15) 


YVJ 2868 FOR 1=12 TO 14:POSITION 7, 1:A*USR(ADRCINVS), 7,1, 26) sNEXT I 
‘WWJ 2878 PRINT #4:CLOSE #4:POSITION 21, 22:PRINT C328(1,15)3 sRETURN 
BCJ 2889 POSITION 21,22:PRINT “ERROR “3PEEK (195) 3C32$(1,5)5 

SUJ 28690 XF=21:YF=22:LF=9:GOSUB 659: RETURN 

ICJ 2990 TRAP 293@:CLOSE #4:0PEN #4,5,9, "Ds NAME.DAT” 


DEJ 2919 PRINT #4;NUM:FOR I=1 TO NUM 


DEJ 292@ PRINT #43; NAMES (1829-268, 1829) :NEXT I: CLOSE #4:CLOSE #3: RETURN 


AVJ 2938 PRINT "ERROR #"3PEEK(195)3"." 


VKJ 2949 POKE 752,1:PRINT “PRESS START TO CONTINUE"; : Y=PEEK (84) 


LVJ 295 A=USR(ADRCINVS),9,Y,5) 
TZJI 2960 IF PEEK(S53279)<>7 THEN 2968 
FUJ 2978 GOTO 2998 


MUJ 2989 TRAP 2889:CLOSE #4:0PEN #4,68,9, "P:" 
URJ 2999 POSITION 21,22:PRINT “ESC TO STOP"3C32$(1,4)3;:POKE 764,255 


NHJ 3999 A=SUSR (ADR CINVS) , 21,22, 5) 


MRI 30169 CLOSE #3:0PEN #3, 4,0, “Ds PHONE. DAT” ' 
DXJ 3828 PRINT #4; “NAME/ADDRESS" 5C32$ (1, 15) 3 "PHONE 1"3C32$(1,9)3 "PHONE 2"s 


SCJ 3938 PRINT #4;0329(1,9)3 "NOTES" 


FUJ 3648 PRINT #4; “------------ “sC328 (1,15) 3 “—----——" 3 C328 (1,9) 5 "---—---— "3 


LSJ 3058 PRINT #4;C032$(1,9)5"---—— ‘ 


_VPJ 3868 FOR I=1 TO NUM: NMS=NAMES (1429-28, 1%29) 


RDJ 3079 IF PEEK(764)<>28 THEN 31998 


MLJ 3089 POSITION 21,22:PRINT “INTERRUPTED” 3C328(1,4)32XF=21: YFe22stF=11 


XIJ 3899 GOSUB 465¢:CLOSE #4:RETURN 


RFJ 3190 HS=ASC (NMS (LEN (NMS) —2) ) sLS=ASC (NMS (LEN (NMS) —1) ) 
OCJ 3118 B=ASC (NMS (LEN (NMS) >) s S=HS$256+LS: NMS=NMS (1, 26) 


KDJ 3128 POINT #3,S,BzPRINT #4 - 


PRI 31308 INPUT #33PHONE1$: INPUT #3;PHONE2$: INPUT #3;ADDRS$: INPUT #5; MEMOS 


KFJ 3149 PRINT #43; NMS$3CHRS (32) 3 


IF 315@ PRINT #4; PHONE1$; CHRS (32) ; PHONE 2$; CHRS (32) 5; MEMOS (1, 15) 
YIJ 3168 FOR J=1 TO 3:PRINT #4; ADDRS (J 826-25, J324) 5C329(1, 55) 3 
SVJ 31768 PRINT #4; MEMOS (381541, 3815415) sNEXT J 

FTJ 3188 PRINT #43C32$ (1,50) 3C329(1,9) 3 MEMOS (61,75) SNEXT I 


YUZ 3199 CLOSE #4:RETURN 


‘memory 


then I can type. 


of the screen. Am I wrong? No, 
I’m. not. Let me explain. You 
see, you are writing to the 
screen at the time you are ex- 
amining the memory at 
40:107A. As DEBUG displays 
the memory dump, you are ac- 
tually: scrolling the screen 
down. Therefore, you'll never 
find the beginning of screen 
this way. It’s 
impossible. 


But there is a way to do it. 


And I can prove to you that 


I’m right; 40:107A does con- 
tain the start of video memory. 
It’s not complicated, but it does 
require another computer and 
the MSDOS command CTTY 
AUX. 


Okay, get yourself another 


computer. Borrow a friend’s if 


you have to. Then connect 
your Sanyo to the second com- 
puter, using the RS232 serial 
ports and a null modem con- 
nector. You'll need the null 
modem connector because per- 
sonal computers are always 
configured for DTE operation. 
A DTE device cannot com- 
municate with another DTE 
device without a little help. 
The null modem connector 
supplies that help. 


Load a terminal program in- 
to the second computer. Then, 
making sure the baud rate, 
parity, etc., are both compati- 
ble, type CTTY AUX on the 
Sanyo’s keyboard. Hit ENTER 


Parrot Sound 
continued from page 78 


sound files that have been 
organized into tracks are refer- 
red to as structured files. A 
typical track is created by ex- 
amining a graph of the sam- 
pled sound, determining the 


memory locations of the begin- | 


ning and end points of the ac- 
tual sound segment that is 
desired, and then defining 
those memory locations as one 
of the tracks. With practice, 
you could even cut out a single 
note of an instrument from a 
song and define it as a track. 
The Emulator program also 
lets advanced users actually 
modify the sound waves on the 
screen with the joystick. 


Once your tracks are defin- 
ed, you can play music with 
your sampled sounds. The first 
three rows of the keyboard are 
defined as musical keys, while 
the bottom row is used to select 
one of the nine tracks. 


A generous number of sam- 
ple structured sounds are in- 
cluded on the Parrot diskette. 
These sounds include a variety 


of drums, a piano, horn, 


guitar, starting cars and bark- 
ing dogs. Playing these sounds 
on the keyboard is enormous 
fun, and playing your own 
sounds is even more exciting. 


on the Sanyo keys, and the. 


MSDOS prompt should appear 


on the second computer’s CRT. 
If it doesn’t, you’ve done 
something wrong; go back and 
check your connectors. 

But supposing, by some 
miracle, everything is working 
right. You are now controlling 


your Sanyo from the second 
computer. Try typing DIR, 
and you see the Sanyo’s disk 
directory appear on this CRT. 


Now, on this keyboard, type 
DEBUG, hit ENTER, and 
when DEBUG loads, all screen 
and keyboard operations will 
be conducted from the second 


continued on page 208 


SANYO VIDEO RAM 


Screen begins 


Figure 1 


Begin At 3C00-0F 06 
3C00 
| 


3ch:000 TOTAL 
RAM 
3E80 bytes 


3c00:3F7|F 
Screen ends 


-SFFF 


Next byte te 3000-0000 


BASIC Subroutine 


The Parrot diskette contains 
a BASIC ‘subroutine that al- 
lows you to put your sampled 
sounds into your own BASIC 
programs. On the diskette is 
also a guess-the-number game 
(higher, lower, a little higher, 
etc.) which demonstrates how 
this subroutine can be used in 
your Own programs. 


Documentation 

The 39-page instruction 
booklet is complete and well 
written. Special sections discuss 
creating custom sounds, using 
sound files in your BASIC pro- 
grams, and storing sounds ona 
130XE. The appendices in- 
clude a trouble-shooting guide, 
sample “sheet music” songs for 
the keyboard, a description of 
waves, and a glossary of terms. 


Conclusions _ - 


While my first impressions 


of the Parrot were negative, 
the software included with the 
package quickly changed my 
mind. And despite the home- 
made looks of the Parrot hard- 
ware, the sampled sounds are 
of comparable quality to the 
more attractive and expensive 
Voice Master. I would like to 
have seen a music-writing pro- 
gram or a voice recognition 
program, like those included 
with voice Master, but perhaps 
Alpha Systems will release ad- 


END AT 
3C00:0D7F 


ditional software for the Parrot 
in the future. . 

If you’re itching for a sound 
digitizer, and don’t mind that 
someone might try to use it as 
a game paddle, the parrot 
should suit your needs. At 
$39.95, the package is a great 


value. 


Requires: 
8-Bit Atari Computer 
Disk Drive 
Joystick 

Author: 

~ Tony Ramos 


Price: 
$39.95 


Warranty: 
90 days, free replacement 


Manufacturer: 
Alpha Systems 
4435 Maplepark Road 
Stow, OH 44224 


Ratings For Parrot Sound 
Digitizer Package | 


*Poor, **Fair, ***Good, 


— ****Kxcellent 
Design: Hardware * 


Design: Software *** 


Practicality aaa 
Documentation on 
Value for price **** 
Average si e 
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by Wynn Rostek 
Mutual ST Help 


I had: mentioned in a 
previous column that everyone 
was looking for a source for the 
video connectors used on the 
ST. Search no longer, we have 
found a source. Mark Spires 
from “At Your Service” has the 
connectors. It -took Mike 3 
weeks worth of phone calls to 
locate a source for the connec- 
tors. The connectors are $15 
each, and he has 5 foot cables 
with composite video and 
audio for $20. 


I suggest you contact Mike 
before ordering, he can not 
take VISA or MASTERCARD. 
The address is: At Your Ser- 
vice, 2856 Leechburg Rad., 
Lower Burrell, PA 15068, AT- 
TEN: Mike Spires. 

You can also order the con- 
nectors and cables by leaving a 
message or Email on the Atari 
Elite BBS. The Atari Elite BBS 


is an ST FOREM board and 


runs 300, 1200, and 2400 
baud. ft is up 24 hours a day. 
The BBS number is (412) 
384-5609. If you want to talk 


to Mike, call him at .(412) - 


335-4477. 


ATTENTION! Mike Spires 
also passes along a tip, the STs 
with a built-in RF modulator 
have composite video on pin 2 
of the video connector. This is 
not mentioned in any of the 
Atari documentation, the ser- 
vice information. 

Fred Hawkins suggested 
that we investigate the fflush 
function for clearing buffers. 
The fflush function is used to 
force a disk write. The ST buf- 
fers disk data in memory. Each 
open disk file has its own buf- 
fer. When you write to disk, 
you are really writing to 
’ memory where the disk data is 
buffered. To ensure that any 
_ change you have made to the 
file is actually on the disk, you 
can use the fflush function to 
force a disk write. The fflush 
- function works only if you use 
the C file functions. 

When you close a file, or ex- 
it a C program, it will call 
fflush to ensure the disk is up- 
dated correctly. 

Since we used the Bconin 


functions, we have bypassed ~ 


the C file functions, and the 
fflush wouldn’t work anyway. 
In most systems, fflush does not 
work with physical devices, 
only disk files. (In spite of the 


attempt to erase all differences. 


Hacking The ST 


between devices and disk files, 
some still exist.) Fred also has 
good words for Common C 
Functions by Kim Jon Brand. 


I have not seen this book, but: 


I have several other books on 
C from Que, and all of them 
are excellent. 

F. H. Marz is trying to use 
the graphics capabilities of the 
ST, but is looking for a 
language other than C to do it 
with. He is looking for a good 
book on Logo. The book Atari 
supplied, A Sourcebook for 


Atari Logo is too brief for 


beginners. I have not used 
Logo, but there is a book Atari 
ST Logo by Martin Sims from 
Hayden Book Company that 
covers programming in Logo 
on the ST. The Atari ST User’s 
Guide by John Heilborn from 
Osborne McGraw-Hill also has 


a couple of chapters on Logo - 


programming. I have not read 
either of these books, but I 


have noticed them on the © 


shelves of our local bookstore. 
(I can only afford to buy so 


_ many books a week, and Logo 


is one language f have not real- 


dy played around with.) 
Logo is not really the. 


language to use for graphics 
programming on the ST, many 
of the special features of GEM 
(most of them in fact) are not 
available in Logo. If you find 
C too hard (it is not a beginner 
friendly language) but still 
want to try to use the special 
features of GEM (like drop- 
down menus, windows and 
alerts) you may seriously con- 
sider Personal Pascal from 
OSS. | 


ST BASIC also has interfaces 
to many of the GEM routines, 
look in your copy of ST BASIC 
Sourcebook under GEMSYS. 
You will need additional infor- 
mation on the AES interface in 
order to use this function. The 
only good sources I know of 
now are the ST developers kit 
and Atari ST GEM Program- 
mer’s Reference from Abacus. 

I will be briefly reviewing 
Atari ST GEM Programmer's 
Reference here to give you 
some idea as to whether you 
want to buy it or not. 

Chapter 1 is a brief in- 
troduction to GEM. Since 
Chapter 1 is only 9 pages long, 
the introduction is very brief 
indeed. Chapter 2 is a very 
short introduction to C and 
68000 assembly language pro- 
gramming. I think this section 


_could have been easily left out, 


it is too brief to serve as a guide 
for anyone using C or 68000 
assembly language for the first 
time. There are many good 
books available on C program- 
ming and 68000 assembly 
language. 

Chapter 3 covers the VDI 
portion of GEM. Pages 61 


_ through 229 contain definitions 


of the VDI functions and tells 
you the input and output 
parameters used. This is a good 
explanation of what functions 
are available, but it is not a 
tutorial on the use of the VDI. 
They have presented 6 C pro- 
grams and 2 assembly pro- 
grams at the end of Chapter 3 
to illustrate the use of some of 
the VDI calls. This should be 


enough to get you started, and 


experimenting with the VDI 
calls can be an awful lot of fun. 

The VDI is the low level 
graphics interface of GEM. 
(The line-a interface is the 
lowest level graphics interface, 


and I'll cover a few-of the line. | 
a routines later in this column.) 


The VDI allows you to prepare 
the ST for graphics operations, 
load and unload different fonts 
(text styles) and draw lines, 
polygons, bars, arcs, circles, 


ellipses and select fill patterns. 
It-also provides an interface to’ 


the mouse and keyboard. 


Chapter 4 covers the AES. 
The AES is the workhorse of 
the Desktop. The AES allows 
you to use menu bars, dialog 
boxes, icons, and windows. 
The first part of Chapter 4 is 
an introduction to the way the 
AES handles the major func- 
tions. This section gives you 
some insight into how to use 
the AES calls to create a 
graphics program. 

The AES information is 
presented in a more tutorial 
format with a lot of explana- 
tion in the first part of the 
chapter. The middle portion of 
Chapter 4 is a list of the AES 
functions and the parameters 
used by them. The end of 
Chapter 4 contains a C pro- 
gram and 3 assembly language 
programs showing the AES in 
action. 

I was not overly impressed 
with Chapters 1 and 2, and I 
wonder why they even 
bothered to include them. 
Chapter 3 is a good run-down 
on what VDI functions are 
available but could have used 
a little more explanation of 
some of the functions. The 
coverage of the AES functions 


in Chapter 4 is very good. The 
explanations given go a long 
way towards making the AES 


- easier to use. We have the AES 


documentation from the 
developers tool kit and from a 
GEM seminar given by DRI, 
and they are not as useful to 
the average programmer as 
Chapter 4 of Atari ST GEM 
Programmer’s Reference. 


If you happen to have some 
graphics background, GEM is 


based on the GSX package 


developed by DRI, which was 
based on the GKS standard. If 
you know GKS, you should be 
able to pick up GEM in a day 
or two. 

Atari has just notified us that 
a new version of the Alcyon C 
compiler is available. There is 
a $20 upgrade feé for the new 
version. The new version has 
cleaned up some minor bugs 
and added double precision 


floating point numbers. They . 


have also provided a working 
version of the archive. utility 
AR68, a tool I am leoking for- 
ward to having. 


Line-a Interface 


I have mentioned ‘the line-a 
interface several times. This 
month Ill give you a few quick 
routines to show some of the 


- line-a routines in action. One 


thing you will notice from the 
VDI and AES documentation 
is that the screen positions on 
the ST have the origin in the 
upper left corner. 0,0 is the top 
left-most point on the screen. 


_ This means that the Y axis is 


upside down from what you 
would expect. 


One of the nice things we 
can do here is flip the Y axis 
back around the way you 
would expect it to be. 

Unlike most columns, this 
column will have some 
assembly language routines. If 
you are serious about hacking 
the ST, you will need to learn 
assembly language sooner or 
later. The routines presented 
here are set up so they can be 
called from the ee C 
compiler. 

When you. call a ‘function 
from C, the assembly language 
generated does something fun- 
ny with the names of the func- 
tion. The Alcyon compiler 


_adds an underscore as the first 


character of a name. If you 


have the following code; 
result = conver (x); 


The assembly language 


generated by the compiler 
would look something like: 


move.w 12(sp),-(sp) 
jst __convert 
move. w d0,14(sp) 


The important thing to keep 
in mind when writing 
assembly language routines 
that you may want to call from 
C is to always use. an 
underscore character as the 
first character of the name. 

Before I get into the pro- 
gram proper, I’d like to give 
you a little background infor- 
mation on graphics so you can 
follow the code a little better. 
Suppose someone asks you to 
draw a diagonal line across a 
sheet of paper. With a straight 
edge and a pencil, the task is 
pretty easy. This is because you 
are dealing with a continuous | 
process. On the screen of your 
ST, it is a little trickier to draw 
a line because the display is 
discrete. 

There are 640 dots horizon- 


tally and 200 dots vertieally on 


the ST in medium resolution. 
If you want to draw a line 
from the point 0,0 to the point 
4,3, you would have to decide 
which pixels to turn on. Just 
connecting the points with a 


_ straight line is an easy solution, 


but the ST has only a limited 
number of pixels to work with, 
so it has to decide somehow 
which pixels should be on. 

Converting a continous line 
to a series of pixels is called 
rasterization, and there are 
several ways to do it. One of 
the simplest ways to go about 
deciding which pixels to turn 
on is to use the Basic Incremen- 
tal algorithm. Conceptually, 
this approach is very simple. If 
you know the two end points 
xl,yl and x2,y2, you can find 
the slope of the line connecting . 
the two points. The slope is 
delta y / delta x or (y2 - yl) / 
(x2 - xl). If you compute the | 
slope M, then you can find out 
which pixel to turn on by turn- 
ing on the first pixel, then in- 
crementing x and adding M to 
the y value. If you round y off, 
you have the next pixel to turn 
on. 

The reason this works is 
because the slope is really how 
much y changes for each unit 
change in x. If the points were 
0,0 and 4,3, then the slope 
would be (3- 0) / (4-0) or 3/4. 
This means that everytime you 
add 1 to x, you should add .75 
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by H. Clark Robbins 


You started with BASIC, 
Pascal, and Fortran so you 
need a change. C is a 
challenge, but you need 
something really new in your 
life. Different. Exciting. 
Challenging. Cheap. I know 
just what you need. 

It is solid, standard, 
available for your machine, 
and it is free. It’s XLISP. 

XLISP has been available in 
the public domain for a long 
time. There are versions for 
CP/M, PC, Mac, Atari ST and 
Amiga. XLISP, as you may 
have guessed, is a version of 
LISP, the LISt Processing 
language. LISP is generally 
recognized as the Artificial In- 
telligence language. 

It is easier to tell you what 
LISP is than to tell you what 
Artificial Intelligence is. Near- 
ly all the AI programs are writ- 
ten in LISP. Expert problem 
solvers can diagnose internal 
combustion engine problems or 
blood diseases. LISP programs 
can simulate human reasoning, 
condensing huge volumes of in- 
formation to make decisions or 
ascertain trends. The most in- 
teresting AI area is that of 
learning, in which computers 
use “past experience” to deduce 


facts. However, it is easy to © 


start fooling around with LISP 
without having any _ back- 
ground in AI. After you see 


what LISP can do you will get © 


a handle on the concept of Ar- 
tificial Intelligence. 

Until recently there was no 
standard for LISP, which 
allowed it to grow and change. 
Now many LISP programmers 
are choosing to use a Common 
LISP, which makes their code 
more transportable. It is in- 
teresting to note that LISP pro- 


cedures and LISP data use the © 


same format. Therefore, it 
follows that a LISP procedure 
can write a LISP procedure 
and then execute it. 

What LISP does better than 
anything is list manipulation, 
of course. You can cut lists up, 
put them back together, move 
elements from one list to 
another, treat lists as data or 
use them to manipulate other 
lists. You can search them, sort 
them, and call them recur- 
sively. 

Recursion is widely used in 


LISP. This sample shows a 


simple case of recursion: the 
factorial of a number. 


(defun factorial (n) 
(cond (C= n 1) 1) 


(t (# n (factorial 


FACTORIAL 
(factorial 4) 


7) 


In XLISP symbol names can 
be made up with any sequence 


(-n 1))d))0)0 ? 


of printable characters, ex- 
cluding () /’ “ , ; and blanks. 
All lower-case  alpha- 
characters are interpreted as 
upper-case. This allows you to 
create some very meaningful 
symbol names. Note that this 


also allows you to “rename” 


some of the existing primitives 
from XLISP. For example a 
programmer could customize 
his procedure for multiplying 
numbers. 

First I must warn you that 
this is going to look a little dif- 
ferent from what you are pro- 
bably accustomed to. The 
word “bizarre” may im- 
mediately come to mind. 
However, there is some 
method to LISP’s madness: the 
first element of a list is the pro- 
cedure, followed by some 
number of arguments. A pro- 
grammer could enter: 
users ( * S 2) 

XLISP: 32 

to perform the multiplication 
3x 5x 2. If he wanted to wreak 
a little havoc, he might modify 
his code to say. 


users 


( setq my-multiply #) 


users C my-multiply 3S 2 ) 
3a 


XLISP: 


On the other hand, it may 
be advantageous to use one of 
the symbols that are popularly 
“reserved keywords” for some 
other purpose. If this program- 
mer knew he would not need 
a division function for his pro- 
gram but needed a symbol to 
save the ASCII representation 
of the slash character, he may 
choose to save it as that 
symbol. : 


users: ( setqg / 47) 
user: ( eval / ) 
XLISP: 47 


unusually comprehensive, con- 
sidering the usual public do- 
main documentation stan- 
dards. In his document, Betz 
covers the features he incor- 
porated into XLISP, and a 
discussion of the data types, 
symbols, and functions of 
XLISP. Of course, like all 
language software documents, 
it is not intended to teach you 


LISP, but rather to instruct | 


you in the use of XLISP. Betz 
recommends the text LISP, 
2nd Edition, by Winston and 
Horn. You might want to look 
it over before you start 
LISPing. 


XLISP is an interpreted 


language, which makes it a 
fine learning tool. As each line 
of code is entered, terminated 
by a carriage return, the 
XLISP prompt tells you the 
level of nesting still unfulfilled, 
i.e. the number of unclosed 


parentheses. In complex pro- | 


cedures that is usually an in- 
dication the user has forgotten 


.one of the many parentheses 


terminating a procedure: an 
error akin to forgetting a 
semicolon in Pascal. 

XLISP supports many 
esoteric list manipulation sym- 
bols not supported by other 
LISPs, e.g. “nthedr” is the nth 
element of a list. You can easi- 
ly create many more of these 
symbols as needed. XLISP also 
supports the outdated PROG 


feature, which may be helpful 


if you are trying to resurrect a 
program ported from another 
machine. XLISP’s *BREAK- 
ENABLE* feature provides an 


So if there is a need to accommodate a mathematician that 
doesn't like ta type much, we can create FACTORIAL as simply the 


symb ol mew 


{(defun !§ (rn) 
(cand ((= nm 1) 1) 


users: 


(t (em Co! C= wm td))007) 


XLISP: 
user: 
XLISP: 


XLISP was written by 
David Betz in C. XLISP 1.1 
appeared in the public domain 
for CP/M 80 a few years ago, 
but lacked a lot of the “stan- 
dard” features. That was 
because the compiled code fill- 
ed a good portion of memory, 


leaving little room for XLISP 


applications. Even today 
XLISP 1.1 is the highest rev 
available for CP/M 80. XLISP 


1.5 is available for the PC, 


Amiga, and Atari ST. This ver- 
sion is standard, capable, and 
easy to uSe. 

3; define the Funetion 


test for ‘dorie 
: multioly recursively 


Each version of XLISP in- 
cludes a document that is 


nore it. 


3; define the function 
s test for done 
; multiply recursively 


“error-level” display with every 
prompt to the user. Incremen- 
ting with every fauXLISP pas, 
it is an everpresent reminder of 
your fallibility. This feature 
may be useful to XLISP ex- 


perts, but it can be confusing. 
to the neophyte. This is a 


default and can be changed, 
but it is easiest to just try to ig- 
It will keep you 
humble. 

XLISP is not without its 
flaws. You can save and load 
functions you define, but there 
is no way to save the entire 
working set. This is a major 
drawback if you are just fool- 
ing around and you create a 


work of genius: you have no 


way of recreating the sequence 
of steps you took to get there. 
Of course, this will never hap- 
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pen to any of us because we all 
design before we code, don’t 
we? 

Have fun with XLISP. If 
you would like to use it com- 
mercially, you will first need to 
talk over the commercial im- 
plications with David Betz. He 
will even provide technical 
assistance to users in trouble. 
How many contributors to the 
public domain can say that? 
Even though this was not 
distributed as shareware, I’m 
sure he wouldn’t mind being 
thanked in a concrete way for 
his help. Betz is currently 
working on XLISP 1.7 for the 
PC, Amiga, Mac, and ST. 
That should be out in a few 
months with some new 
features and new documenta- 
tion. XLISP users are looking 
forward to that. 


XLISP is not all things to all 
people. After having played 
with XLISP for a while, if you 
are really hooked and want to 
spend a lot of time with a 
LISP, you should check out 
Golden Common Lisp for the 
PC, a Common _ LISP 
developed by Gold Hill Com- 
puters (163 Harvard St, Cam- 
bridge, Massachusetts 02139 


(617) 492-2071). It is a com- 


plete LISP developing environ- 
ment. It has an GMACS 
editor, a GC LISP interpreter, 
on-line help, examples, and the 
San Marco Lisp Explorer, a 
full blown on-line tutorial. The 
user interface is very comfor- 
table with all the bells and 
whistles you can imagine: in 
the interpreter, the level of 
nesting is annotated by the 
blinking parenthesis that opens 


the current level of nesting— 


what a handy feature! The 
package includes comprehen- 
sive documentation and two 


texts, one of which is the ubi- | 


quitous LISP, by Winston and 
Horn. The price is around $500 
so I obviously can’t recom- 
mend a hobbyist run right out 
and buy it if he has never used 
LISP before and doesn’t know 
if he will like it. (Universities 
can get six or more copies at 
$100 each.) I was surprised to 
learn the package is copy pro- 
tected because I don’t know 
anyone who could recommend 
you buy development tools that 
are copy protected. But if 
you're a serious LISP lover, 
there is no better environment 
for development. 

Of course, if you would like 
a look at an Artificial In- 
telligence example from a 
creative standpoint, there’s 
HippoBackgammon. And you 
don’t have to learn a new 
language. 

Hippo Soft now has a 


backgammon game available 
for the Atari ST. Computer 
adaptations of parlor games 
have been around since the 
early days of computers and 
really haven’t changed very 
much. Each game developer 
tries a twist to keep his game 


_ from looking pretty much like 


one that ran on a TRS 80 ten 
years ago. The twist in Hip- 
poBackgammon is Artificial 


_ Intelligence. Hippo Soft wants 


to teach the user the meaning 
of AI by allowing him to 
modify the thinking of his 
computer-opponent, called a 
Robot. 

Backgammon is a simple 
game: the rules can be learned 
in an hour and the techniques 
can be learned in just a few ses- 
sions. The ability to alter the 
characteristics of your op- 
ponents is a great tool in learn- 
ing Backgammon style. You 
can change the significance to 
each of your Robot’s moves to 
make it play a different 
strategy. Their preprogram- 
med “expert” Robot is pretty 
darn good. The Expert Robot 
plays a very conservative 
game. It doesn’t like a blood- 
bath. I do. It usually wins. 

A few general comments on 
the program: HippoBackgam- 
mon has a very nice display in 


low res. The colors selected are 


pleasing to the eye, and pro- | 
vide a professional look. After | 
your eyes get a little tired the | 
red begins to look too much 
like the black. The other color 
selection, blues, lavenders, and 
purples is much easier to see 
but is aesthetically unpleasing. 

The Backgammon setup 
seems awfully slow, but is on- — 
ly 15 seconds. The game 
defaults to a human vs expert 
robot game, with human get- , 
ting first roll of the dice. This. 
can be changed from within a 
pull-down menu, allowing the © 
user to elect to challenge one of 
his customized robots or one of 
three preprogrammed robots: 
Expert, Medium, or Novice. If | 
he so chooses, he can have two 


_ robots play each other and just | 


sit back to watch the fun. 

In the human vs Robot game 
the human makes his move 
then passes the dice to his op- . 
ponent by clicking once on the 
dice. Until you pass the dice, 
you can use UNDO to change | 
your move. The program will | 
make sure that any move you | 
make is legal; otherwise it will 
return the piece to its origin 
and allow you to try it again. 
There is never an indication 
that all your legal moves have 
been made. In fact, the soft- 
ware does not force you to take f 
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all your legal moves, allowing 
you to never leave yourself 
vulnerable. That is very kind, 
but it is not the way the game 
_ is played. Moving the pieces 
with a mouse is a bother, con- 
sidering that they must be 
moved in discrete steps that 
would lend themselves so well 
to keypresses. 


Passing the dice requires a 
long click or the game will not 
recognize the command. The 
robot’s dice are automatically 
rolled, he moves, passes the 
dice to you, and the dice are 
automatically rolled for you. It 
doesn’t give you much time to 
examine the Robot’s roll or his 
play. 


All in all, HippoBackgam- 
mon is a fun game. It sells for 
$39.95 and is available from 
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your dealer or Hippopotamus 


Software (985 University Ave, 
#12, Los Gatos, CA 95030, 


(408) 395-3190). The program 
is copy protected, but allows 


you to back up your customiz- ~ 


ed robots on another diskette. 
At least this allows you to 


write-protect your only copy of 
HippoBackgammon. The abil- 
ity to “program” your Robot 
teaches you about components 
of the game you may have 
never thought of before. It may 
also give you a feeling for the 
complexity of writing such a 
game and the decision-making 
processes involved. 


Since there is big money on- 


‘ly in new and innovative pro- 


gramming, perhaps beginning 


developers may want to look 


more closely at LISP and Ar- 
tificial Intelligence program- 
ming. It may just be the better 


mousetrap they are searching | 


for. ® 
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30 days warranty 
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Viewpoint 199 


AED 512 


Perkin-Elmer 
$199 
249 
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MAC ACCESS 


External Hard Disk System 
for Macintosh or Mac-Plus 


% Supports HFS 


* Supports a wide variety of disk drive types from 5 MB to43 MB 
* Runs on either printer or modem port 

* Comes with operating software and instructions 

% 90 days parts and labor warranty 

* Hard disk drive can be user installed in less than 5 minutes 


System price w/o Hard Disk Drive 
w/ 10 MB Hard Disk 


$349. 
$499. 


Adapter cable (for Mac-Plus only) — add $20. 


MOTHERBOARD 


FOR 


$59 Motherboard by Faraday mounts in PC or 


compatible case 


*% 64K Memory installed w/256k expansion on- hoard 
(above 256k obtained with card) 

* I/O Ports on-board (1 parallel, 2 serial) 

*% 4 additional expansion slots . 

* complete operation and installation manual 

*% 90 day parts and labor warranty 


‘Set of 3 DB-25 connectors & cables for above — add $10. 


Ailitems shipped U.P.S. Freight Collect unless instructed otherwise. CA residents 
add 7% sales tax. To order, send check or money order or: . 


es 


- listing. For further inquires call: 


R.A. L. CONSULTING 
Electronics Marketing 


Credit Card Orders Call TOLL FREE 


(800) 821-5226 ext. 440 


Mastercard and Visa accepted. This is only a partial 


(408) 559-6459 


14805 Cole Drive 
San Jose, CA 95124 


Personal Pascal For The Atari ST 


by W. Krieger 


Since it’s creation in 1968 by 
Niklaus Wirth, Pascal has 
steadily risen in popularity to 
become one of the most wide- 
ly used computer languages. 
There are many reasons for this 
popularity. Pascal was design- 
ed originally as a teaching 
language, and as such is much 
easier to master than either C 


or assembly. The strong struc- — 


ture of Pascal almost forces you 
to develop and use good pro- 


gramming techniques. Another — 


big plus for the language is the 
availability of excellent low 
cost compilers for a wide varie- 
tv of computers. 

As an Atari ST owner I was 
very happy to see this carry 
over to the ST line. Optimized 
Systems Software, Inc. (1221 B 
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the C-128 ad was really meant 
to be tongue-in-cheek, its com- 
parison between the C-128 and 
the 520 ST, is much fairer. 
And, feature for feature (just 
like Atari does it) the C-128 
comes out on top! 

It’s provocative things like 
that which make INFO worth 
reading, even if it is a little ex- 
pensive. ($3.60 a. bi-monthly 
issue). If you haven’t seen this 
magazine, you're missing a lot 
of gut level reviews of software 
and hardware (not the sugar 


coated junk in some other 


Commodore-oriented maga- 


zines). Each issue, while often 


whirrling with the latest scut- 
tlebutt, is also entertaining (to 
say the least) and full 
of...well...general Com- 
modore info. (Which, I guess, 
is why it’s named that.) Sub- 
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IBM Network Cards 


IBU/Appie 
HacIntosh 


Segate Hard Drives HModei 412/$250 


CDC $5 mb. HARD DRIVE HIGH SPEED 
FIJ. $5 mb. HARD DRIVE HIGH SPEED $1250.00 
MANY OTHER RAED DRIVES AND SUPER SAVINGS. 


CALL 305-594-4906 


Kentwood Ave., San Jose, CA 
95129) has released Personal 
Pascal for the ST for only 


$74.95. OSS has been a long 
time supporter of the 8 bit. 


systems by Atari, and have 
released several other 
languages for the 8 bit line. In- 
cluding Action, Mac-65 and 
BASIC XL, all good products. 


Personal Pascal is the first 
package I’ve seen from OSS for 
the ST and happily they have 
once again come out with a 
fine product. This is a very 
good Pascal package that in- 
cludes everything you need to 
develop programs for your 
ST,: Editor, Compiler, Linker, 
and GEM support, all in one 
low cost easy to use system. 

The first thing you notice 
when you open the Personal 


scriptions are $18.00 a year, 
and single copies of back issues 


~ are $5.00. Get a recent copy 


and see if you like it: INFO, 
P.O. Box 2300, Iowa City, IA 
42244, 
Commonly Used Bulletin Board System 
| (BBS) Abbreviations 
Abrev. Type of BBS it Describes 


ABBS Apple Bulletin Board System (Ap- 
ple based) 

AMIS Atari Message Information System 
(Atari based) si. 

CARN CARNIVAL Bulletin Board (Atari 

based) 

CBBS Computerized (Christensen) 

Bulletin Board System (CP/M — 

based) 

Commodore Computer BB (C- 64 

based) | 

CCMS Computer Conference Message 
System (S100 based) 

COCO Color Computer BB (TRS-80 

| based) 

CONF Conference Tree System (Apple 

DIVD 

DYM. 


CCBS 


based) 

Diversi-Dial Multi-User System 
(Apple based) 

Dial-Your-Match (Apple or C-64 


based) 
ERAC ERAC BBS (TRS-80 based) 


ee ee 


05-594-4 


$-100/2-100 Cards and Parts 

SOFTWARE SPECIALS: 

Sargon III 

Microsoft Chart 
Hicrogoft Excel 

Hayden DaVinchi Series 
Stoneware DEB Haster 
TERA DIME L-135A $50.000.00¢LSI CICURT BORAD TESTER) 


7 PLUS HUCH, HUCH NORE !1!! 
Mt tll LLY LL LLL LLL LY LLL NY ltl tll tt tlt ot otal 


Hodel 419/$315 
$1200.00 


Pascal package is the manual, 
two hundred, over, pages of 
documentation. It is well writ- 
ten and divided into logical 
sections explaining the major 
parts of the Personal Pascal 
system. My only major com- 
plaint with the documentation 
is the lack of an index. I find 
myself constantly leafing 
through the book trying to find 
an answer to this or that ques- 
tion. I don’t mean to imply 
that the text isn’t well organiz- 
ed, it is, just that any technical 
publication of this size needs an 
index. 

A big plus for the manual 
however is the honesty and 
cleverness of the writers, they 
tell it like they see it. For ex- 
ample in the introduction to 


continued on page 181 


FIDO 
FORE 
FRON 


FidoNet International BBS Net- 
work (MS-DOS based) 
FOREM Message System (Atari 


based) 
Frontier BB (TRS80 Model 100 
based) 
Apple-Based BBS (Apple) 
PC BBS (IBM-PC & Compatibles) 
PCjr BBS (IBM-PCjr based) 
. Macintosh BB (Macintosh based) — 
MCMS Micro Computer Message System 
(TRS-80 based) 
MUSR Muser Multi-User System (Apple 
Based) 
North Star. BB (NorthStar based) 
NET. Net-Works Communications 
System (Apple based) 
NEWS News and Message Service 
(TRS-80 Mod-16 based) 
Other Apple BB (Apple based) 
Other TRS-80 BB (TRS-80 based) 
PMS. People’s Message System (Apple 
ased) . 
Remote PC BB (IBM-PC & 
Compatibles) 
RCPM Remote CP/M BB 
The Bread Board System (TRS-80 
& MS-DOS based) 
Texas Instruments BB (TI99/4a 
based) 
Universal BBS (Apple based) 
Unix BBS (PC based) 
Table #1 - BBS Abbreviations @ 
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$175.00 each 
$cCali 


$19.95 

$59.95 

$195.00 

$19.95 each pert 
$99.95 
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the GEM library the manual 
states. “If you have been 
unlucky enough to see the 
Digital Research and Atari 
Corporation documentation, 
you will realize that even 2,000 
pages are not enough to 
describe everything which can 
be done with GEM.” For this 
refreshing approach to 
documentation I can almost 
forgive them for not having an 
index. 7 

The Manual is divided into 
six sections, System Overview, 
Editor Reference, Compiler 
Reference, Linker Reference, 
GEM/Pascal Library, and the 
Language Reference. There 
are also appendices on the er- 
ror messages and ASCII codes. 
Each ‘section is organized to 
present the information in the 
same order you will be likely to 
need it. | 

Using the Personal Pascal 
system is simple. Everything is 
supplied on one single sided 
nonprotected disk. The system 
is accessed from a shell pro- 
gram (PASCAL.PRG) from 
which you use the mouse to set 
compiler and linker defaults or 
to invoke any of the three main 
functional parts: the editor, 
compiler or linker. 

The editor supplied with the 
package isn’t bad. I wouldn't 
want to use it as my primary 


editor but it has enough 


features to get the job done. In 
fact the best description of the 
editor comes from the Personal 
Pascal manual. “It (the editor) 
is not designed as a word pro- 
cessor or other general text 
editor, and it lacks many of the 
features one would expect to 
see in such a product. As a pro- 
gram editor, though it is at 
least adequate.” 

The best feature of the editor 
is that it is integrated into the 
Personal Pascal system. When 
the compiler finds a bug in 
your source code an alert box 
will appear on the screen ask- 
ing if you want to ignore the 
error, edit the source or quit. 
If you choose to edit option, 
the editor is brought up, with 
your source file already load- 
ed and the cursor on the line 
where the error occurred. This 
makes those missing semicolons 
a lot easier to live with. (For 
those of you who haven’t used 
Pascal, every statement in 
Pascal must be separated by a 
semicolon. Leaving these out is 
one of the most common errors 
in Pascal.) Then when you are 
done fixing the error just hit F9 
and your modified code is 
saved to disk and the compiler 
is invoked. This is the similar 
to the system used in Borland’s 
Turbo Pascal and is in my not 
so humble opinion the way all 
compiler editor packages 
should be set up. 

The compiler is however 


more than just adequate. 
While not the fastest in the 
world it does everything it’s 
suppose to and does them well. 
The speed problem is due to 
disk IO, this is acommon prob- 
lem with running a compiler 
on a floppy based system. 
Luckily Personal Pascal isn’t 
copy protected so you can easi- 
ly run it from either a hard disk 
or a RAM disk. I run mine out 
of a RAM disk on my 1 meg. 
520 ST and find this to be very 
quick. 

Setting the different com- 
piler options is done from the 
shell program. Just pull down 
the options menu and click on 
compiler. This opens a window 
with the compiler options us- 
ing the mouse to select or 
deselect the ones you want. 

The possible settings include 
compiling to a GEM or a TOS 
program. You can also turn on 
or off Pause after errors, full 
debug mode, range checking, 
stack checking, clear variables, 
and if you want it to 
automatically invoke the linker 
or not. You can also use com- 
piler directives in your source 
code to set some of these and 
several other options. The most 
important of which is the abili- 
ty to compile to a module for 
later linking. 

Modular compilation will 
allow you to use Personal 
Pascal in concert with other 
programming languages, like 
C or assembly. The modules 
created are link68 compatible 
(the linker supplied with the 
developers system from Atari). 
The main use for this will more 
than likely be the linking in of 
assembly language routines to 
handle either time critical pro- 
cedures or low level system 
calls. 

The ability to compile to a 
TOS application allows Per- 
sonal Pascal programs to be 
nearly indentical to Pascal on 
an IBM PC or other standard 
type system. I highly recom- 
mend this for novice program- 
mers trying to learn Pascal. 
Any standard Pascal book can 
be used to get you started with 
Personal Pascal, then after you 
get the program running the 
way you want it is easy enough 
to come back and add the 
GEM. features you want. 
While it’s true that Pascal is 
relatively easy to learn, trying 
to master a new language and 
GEM at the same time is not 
something I would want to do. 

The linker supplied with the 
system is fine. It seems to be 
fairly standard. It is easily ac- 
cessed from the shell program. 
But in most cases it- will be 
chained to the compiler so you 


can almost forget that it’s 


there, unless you get to the 
point where you are linking 
together modules from two or 
more compilers. I see no reason 
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e Custom configurations available 


- Serial-to-Parallel S 799° 
_ Starting at | 
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er 


TECHNOLOGIC SYSTEMS 


1060 ARUNDEL AVE. 
WESTERVILLE, OHIO 43081 


Buffered Products 
| up to 512K 


Serial-to-Parallel Converters 
Parallel-to-Senal Converters 
Serial-to-Serial Converters 
e Interface any computer to any 
printer (RS232 or Parallel) 
e Support for all protocols; 
X-ON/X-OFF; etc. 


e IBM, DEC, Apple, etc. 


WS 


YL 


ee 
apito 
Et Computer 


| Call First Capitol 
for the best prices 
and custom configurations 


NEW! Fastcard IV 


_Interface Cable Available for Most Computers 


DEALER INQUIRIES INVITED 


PHONE 614-890-6960 


For technical information call 
after 6:00 P.M. Eastern Time 


30 Day Money Back Guarantee 
Shipping and Handling add *3.00 / COD add *2.00 


Sree se | 


Superboard for Zenith PC's! 
* Up to 2 MB EMS memory 

* serial, parallel, and game ports 
* clock/calendar | 


* Ram disk/disk caching/print buffering 


* Security password and diagnostics 


Call for price 


data 
systems 
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CALL FOR 
OUR NEW 
CATALOG 


First Capitol Computer 
1106 First Capitol Dr. 
St. Charles, MO 63301 


(314) 724-2336 
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_to y. With our points, you pro- 
ceed as follows: turn on 0,0; 


add 1 tox and .75 to y. Round 


off y (.75) to 1. Set point 1,1 to 
on. We continue by adding 1 
to x and .75 to y. x is now 2 and 
y is 1.5. When we round off 
1.5, we turn on the point 2,2. 
We bump x to 3 and add .75 


GREAT 
SOFTWARE 


AT MODEST PRICES 


Some sampies from our library of over 475 disks 
for the IBM PC: 


Desk Organizer A great pop-up helper, phone 
dialer, note pad, calendar and calculator. 
© 405 Deskteam— More than a sidekick $5 
Communications 


0) 310 Qmodem-fast with windows $5 
O 212, 334 Set up a BBS system ~ $10 
Assembler with tutorial. P 

1] 10 Chasm, the CHeap ASseMbier $5 


Draw on your computer screen. 
(1 344,345 PC Key Draw (graphics req.) $10 
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to y; y is now 2.25 and round- 
ing it off gives 2 so we turn on 
the point 3,2. Adding 1 to x 
and .75 to y gives us 4 and 3, 
so we round 3 off to 3 and turn 
on the point 4,3. 

The disadvantage of this ap- 
proach is that it requires the 
use of floating point math to 
compute M and for the adjust- 
ment to y. Floating point is 
time consuming, so if you can 
get away from it, your 
graphics would be quicker. 

There is another approach to 
rasterization, known as 
Bresenham’s Line algorithm. 
Bresenham’s algorithm uses on- 
ly integer math, which is much 
faster. 

Instead of keeping track of 
the exact value of y for each 
step, Bresenham’s algorithm 
tries to keep track of the 
relative size of y, without 
knowing the exact y value. The 
way it does this is to use two 
values for the adjustment of y, 
these are usually called incl 


incl is simply 2 * (y2 - yl) 
or 2 * delta y. inc2 is 2 * (delta 
y - delta x). This means that 
incl is always positive and inc2 
is negative. We keep track of 
the relative value of y with a 
variable called d. When you 
bump the value of x, we look 
at the relative value of d, if it 
is negative, we add incl to it 


and we do not bump the y 


value. If d is positive, we add 
inc2 and we bump the y value. 
We start out with d equal to (2 
* delta y) - delta x. 

With our example, delta y is 
3, delta x is four. This gives us 
an inital d of (6 - 4) or 2. incl 
is 6 and inc? is -2. We turn the 
point 0,0 on, and then we add 
1 to x. Since d is positive, we 
add 1 to y and add inc2 to d, 
d is now 0. We turn the point 
1,1 on. Adding 1 to x, we get 
2. Since d is 0 we add 1 to y 
and inc2 tod, making d -2. We 


set the point 2,2 on and we are | 


ready for the next pass. We 
add 1 to x, and since d is 


We can turn on point 3,2 to 
finish the pass. To finish the 
line, we add 1 to x, since d is 
positive, we add inc2 to d and 
bump y to 3. Setting the point 
4,3 on finishes the line. 

You will notice that 
Bresenham’s algorithm sets the 
exact same points on as the 
Basic Incremental algorithm, 
but uses only integer arithme 
tic. Both of these algorithms 
draw an approximation to the 
line, and on longer lines you 
will notice that they generate 
a pattern. Except near the end 
points, there will be a certain 
number of points with the 
same y value. You might notice 
that a certain line will have 3 


* 
* 05/20/86 Some line-a routines 
* 
* 
* 
-globi 


«globl 
-globl 


_nocur 
_setpt 
line 


* 


points with the same y value in 
a row, then another 3 points in 
a row. 

The ST can draw a horizon- 
tal line very quick, so the line- 
a interface really draws a series 
of short horizontal lines to 
place the line.on the screen. It 
has to figure out how many 
points in a row to draw for 
each line segment. Once it does 
this, it can repeatedly call the 
routine that draws horizontal 


lines, once for each segment 


line. 


of 


The routines are written to 
run in medium resolution, but 
it would not be too hard to 
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here we have a list of the routines that are exported 


* here we have a list of defines useful for line-a work 


Spreadsheet - . 
© 199 PC-Calc-simpler than Lotus and inc2 for increment 1 and _ negative, we addincltodand | ‘ftir es : 
& effective $5 |. 4 ? ptsin equ . 12 
1) 214,215,267,288 Spreadsheet, database $z0| increment 2. do not bump the value of y. - a 3B 
Powerful database management programs “x2 equ 2 
(2 5PC-File Il!-Labels,forms,letters,more $5 | , y2 equ a 
(0 287, 288 File Express-reports generator $10 ' eee oe Hela Ae a 
mociewtancewytransssc, | | D-SUB SOLDER CUP CABLE ome i 
tr aliteasky gl foo Price  CENTRONIC-CONNECTOR | |" = = 
, small, full-featu ; 
0 78PC-Write, popular and powerful $5 DB-9M Male Sele cere ow ww fe $0.300 57-30140 14pin Male eee . $1.50 * : ; ae 
(0 388 100 form letters on disk $5 DB-9F Female 4 ee lyethe $0.344 57-30240 24 in Male 30 $1.50 : here we have a list of functions for the line-a interface 
_ | © 194 PC-Read computes grade level of text $5 . nat mre $aQO0 
4 (] 379 Wordstar utilities,color, DB-15M Male wie: ew ONY dae $0.414 9730360 36pin Male eke ag $1.50 setpix ecu . pala 
Ao cio || | DB-ISF Female........ $0.474  57-30500 SOpin Male ....$2.00} | esse gu sass as 
Bye: experimental version of Lisp : a Late bs nt cig 37-30360F 36pIDC Male : $1.50 here we have a routine to get rid of the cursor 
smescounsumammac  § | | DB OEM Hale |. S030 etre ee mae lV oecre acres! * acta _— 
pao stots . DB-25F F e aie 50:38) 2, 30S00F 50pIDC Male. $1.56 J | en riasn rate a ene 
rigami-grap ir - CAV Ey ly HO Ca | 
Games-The most interesting games on, DB 37M a Cee eee $0, 57-40500F 50piDC Female $2.00 * turn cursor off reer pean 
or off, Earth. ms | sbi z “Oo ocanfig curso 
C) 293 Arcade Games (color graphics req.) $5 DB 375 F a Bee wt cep telsWiares ter,ce ete CABLE ASSEMBLIES oe * xbias call - . cant : ae on 
C 390 Flight and others (graphics req.) $5 5 emaie........ .094 UL TYPE * perform xbios function ets 
C) 354 PC Jr. games $5 DB-50M Male ......... $2.380 IBM Pri Cable 6ft $5.00 * clean up the stack . | 
© 292 Spacewars, greatonHerculescard $5 rinter Cable 2.2 OD Bie 
0 476 Patrick's Best games (mono & color) $5 DB-50F Female eee ne ee $2.400 IBM Printer Cable 10ft $7 00 * 
: : : oes : * a routine to turn a pixel oon 
Recover lost files-File examine/ repair utility IDC DB FLAT CBL-METAL * to call from C: setpttx,y,colbar)s 
ieee RS-232 TEST DEVICES ETC ae , er 
C 133 Ultra Utilities, similar to Norton's $5 DB-9FFM Female ...... $1.780 . : Ke paves ile Peta cates Pn Aen pada 
DOS Help and explanations for the new user. DB-15FFM F | $1 920 Jumper Box M/M Poe ree ree or $3.00 # of the screen, and the rest cf the world 
C] 254 PC DOS Help $5 emale ..... . J B F/F $3 00 * wants to out @ at the wottom of the screen 
© 40a Computer Tutor, eam Po-00s. «$8. | DB-25MFM Male....... $2.074 Jumper Box F/F ........$3. : . 
Housekeeping-Our favorite utilities. Mini Tester-/ Led $6 00 _setpt: -dce.w init 
C 273 Best Utilities. $5 DB-25FFM Female Seteiver tare $2.100 eae Ge Se s Racdaetncareey ere move. | intin(a@ ,a3 * save t 
478 Hard disk utilities, WHEREIS and more $5 IDC DB-POLYESTER BODY Gender Changer M/M ....$3.00 | move. 1 ptsin(ad) ,a4 we eave® 
Unprotect popular software Gender Chan er FIF $3 00 he ptsin array address 
Erste eabdes aby orcieniee $5 DB-25MFP Male ....... $1.500 iit Modem e ae $3.00 cece ME BEDI AE 
manclah eee ORD Cemalo ss EE ROK PRUE WVEUUOTTE 0 ee es . * set color 
0 164 Cashtrac,checkbook, personal DB-25FFP Female see ewe $1.500 S p t t $6 00 move.w 6(sp) ,d@ * fetch the y value 
$5 DB-25MFPL LoProfil $] 650 urge rrotector......... : move.w #199,d1 * y offset 
a ae nas eielitios Business Bookkeeping $10 0 Foul €...94. sub.w d@,di * correct y value 
Typing tutor to train those digits to dance. DB-25FFPL LoProfile vs .$1.650 pel i se arta setpix oe ees 
{} 320 Touch Type $5 * turn pixel on 
Something for programmers: COVERS (HOODS) RS ” $28 43 rts 
C315 Smail c compiter $5 WITH HARDWARE rm 32 ABDE ee Cee a .00 * here is the routine that uses the line-a interface 
C3 424 Pascal compiler written in ; Centronic ABDE a a ; $29.00 * to draw a. line. we have to correct both y values 
Turbo Pascal ss | | DB-9CP Plastic ........ $0.300 | No ee ee 
Something for Lotus lovers: DB-15CP Plastic ....... $0.320 Above prices are based on quan-— j* ary 
(J 304 Lotus 1-2-3 macros $5 ‘ : ‘ ae * ‘C’ calling convention is line(xi,yl,*x2,y2,color); 
( 301-303 Lotus financial and budget DB-25CP Plastic eee $0.320 __ tity buying. Minimum order oes aes — Pee 
eppeatione (dana $15 DB-37CP Plastic ....... $0.540 $100.00. Minimum Quantity-50 9 [inters : ree mee 
enealogy-several toc : ; y waves =1,in maskta Sere 
oO BA Genesicoi: keep tract of family tree $5 DB-50CP Plastic a er a $0.740 pieces. ne pattern (solid) 
C 240 FT-etc., family tree organizer $5 . ae ees il tara be a EneRhe 
For more software than you ever thought . . move.w #@,wrt_mode (aa) * replac 
ager | “ALL MERCHANDISE IS 100% _ | 
C) Catalog on disk (Vol. 1-300) $5 0 nianae By Seam eee 
[7] Catalog on disk (Vol. 300-500) $5 7 move.w : 6(sp) ,d@ * fetch the yi value 
Most programs have documentation on disk and G UA RANTEE D B EST Q UALITY cnt oe ‘ Lereece Gi value 
request a donation from satisfied users. Please move. Ww di,yi(aQ) * set yl 
add $1.00 plus .50 each additional disk. Texas move.w 1O(¢ep) ,d@ * fetch the y2 value 
residents add state sales tax. Laan ea . adie one ues 
ove. di,y2(aQ) t y2 
Total Enclosed $ OCheck GVISA OMC & _ ea age eae Oe toa os 
Card No. mMOVve.wW d@,di 
Exp. date Signature C 0 N N FE C T 0 R S Pigeon aes andi.w #1,d1 
k for bit @ 
Name ene " MOVE .wW di,fg_bp_i(a@) * set pl 
Address A 30340 say neat | ror #1,dQ 
City _CSStatoe__ZIp, 5149 Buford Hwy Atlanta, G : ae Bee Cr lesa: nee 
. or 
: Move.w d@,fg_bp_2(a@) * set pl 
To order, call : (409) 634-4520 1-800-237-C H | P anes dc.w line 
STEVE’S SOFTWARE . eeerere ao 
111 Crosstimbers-Lufkin, Tx. 75901 a0 p H ‘ (4 04) 458-4690 . rts 
Southwest PC Software Interest Group | 


~ FAX: (404) 457-8822 


Listing i. 
Some assembly routines for the line-a interface. 


Hacking The ST 
continued from page 184 


modify it to run in low or high 
resolution. You will notice that 
listing 1 is a series of assembly 
language routines that inter- 
faces to the line-a routines. 

After running some timing 
tests, it turns out that the 
Bresenham algorithm is more 
than twice as fast as the Basic 
Incremental algorithm, but the 
line-a drawing routine is more 
than 5 times as fast as the 
Bresenham! When I timed the 
line-a routine, it took only 2.32 
milliseconds to draw a small 
outline house! As you can tell, 
the ST graphics are fast even 
though they are done by the 
68000 instead of special 
graphics hardware. 

The time has come for a 
discussion of the xbios and line- 
a functions used. The assembly 
routine __nocur uses the xbios 
21 function to turn the cursor 
off. The cursconf function 
takes 2 parameters, the func- 
tion and the flash rate. There 
are 6 functions that can be per- 
formed by the cursconf 
routine. They are: 


Disable cursor 

Enable cursor 

Flashing cursor 

Steady cursor 

Set flash rate 

Get flash rate 
Disable the cursor really 
hides the cursor, it will no 
longer appear on the screen. 
Enable is used to make the cur- 
sor visible again once it has 
been hidden. Flash cursor is 
used to make the cursor a 


or CN ke © 


blinking cursor, while Steady. 


cursor gives you a solid, non- 
blinking cursor. The Get flash 
rate function returns the old 
flash rate while the Set flash 
rate allows you to change the 
flash rate. | 

A word of caution about the 
flash rate, it is based on the 
vertical scan rate of your 
monitor. The color monitors 
use a different scan rate than 
the monochrome monitors, so 
the same flash value gives 
slightly different flash rates. 
This shquld cause no real pro- 
blems because the 2 flash rates 
should be within 20 percent of 
each other. 

The on time of the cursor 


#include “<osbind.h: 
#include <stdio.h> 


marin) 
/* simple demo of ioorcur 


printf ("Setting cursor to 
Cursconf (2,@) ¢ 

delay (49@@) ; 
print€ (’ Turning off cursor. Sn") 
Cursconf (@,@); 
delay (40Q@@); ; 
printf ("Turning cursor ci. s\n ds 
Cursconf(1,@); 

delay (40@8@); 

printf ("Setting blink rake for 
Cursconf(4,7); 

delay (400) ; 

printf ("Fast flash. in")s 
Cursconf (2,0); 

delay (4000); 


sOlad. \m") 


and the off time can be found 
by: on time = 
rate/vsrate, where rate is the 
second parameter in the 
cursconf call and vsrate is the 
vertical scanning rate of your 
monitor. In the United States, 
color monitors for the ST have 
a vertical scanning rate of 60 
Hz, while the monochrome 
monitors have a vertical scan- 
ning rate of 70 Hz. 

_ With a color monitor, if you 
perform a cursconf(4,30) call, 
then the cursor will appear on 
for ¥2 second and off for 2 
second. The rate parameter is 
only used for the Set blink rate 
function of the cursconf call. 
Unlike many other ST calls, 
DO NOT USE -1 FOR THE 
RATE PARAMETER IF YOU 
ARE NOT CHANGING IT, 
USE 0 INSTEAD. If you use -1 
as the rate in a cursconf call, 
it can cause the infamous 
“bombs” to appear on your 
screen. 

Listing 2 contains a short 
program that shows the 
cursconf being put through its 
paces. 

The next item to cover is the 
simplest line-a function, the in- 
it function. The line-a interface 
is named after a series of illegal 
op codes for the 68000. All of 
the line-a op codes start with a 
hex a. These op codes cause an 
illegal instruction exception 
when the 68000 encounters 
them. | 

The exception vectors the 
68000 to a small graphics 


_handler. The init function is 


used to get some addresses we 
need when working with these 
graphics functions. The line-a 
op codes have to be generated 
with define constant state- 
ments because they are not 
really instructions for the 
68000. | 
The first function we can use 
to do some work is the put pix- 
el function. To start off our set- 
point routine, we perform an 
initialization call with the 
$a000 op code. This gives us a 
pointer to a block of addresses, 
which we need for the points 
in array and the integers in ar- 
ray. We move the address of 
the intin array into register a3 


continued on page 186 


Cambicatiran call #7 


maujek flash. sn") 5 


printf ("Setting blink rate for slow flash.\n"); 


Cursconf (4,9@); 
delay (4@0@); 


print# ("Returning blink rate to normal.\n")3 


Cursconf (4,30); 
delay (40@@) ; 
3 


Listing 2. 


Use of the Cursconf functions. 


off time = 


PHISH A IIIA AIA IIA ISDA III ISSI ISI SISIA 
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AKIRA IKK IKK RIKI III HIKARI IKI 


- FLOPPY DISK DRIVE - 


SALES & REPAIR SERVICE 
DRIVE MODEL SIZE 


1-3 4+ 


Tandon TM848-2E ¥V2 ht (new) - 8” DS/DD $325 $300 
Tandon TM848-1E 2 ht (new) 8” SS/DD $199. $179 
Tandon TM848-2 ¥2 ht (new) 8” DS/DD $235 $215 
Tandon TM848-1 ¥2 ht (new) 8” SS/DD $149 $129 
Tandon TM100-2 | 5%” DS/DD $119 $109 
Shugart SA801R (new) —8” SS/DD $189 $169 
ory ene 083 
Pertec FD 410/510 , ‘ : 
Come to: o fone Apple Hard Disk Sub System 5 meg $375 $350 
your repair needs. Remex RFX4000 8” DS/IDD $250 $225 
We offer quick Qume 2848 8” DS/DD $250 $225 
turnaround at a _ CALL FOR RMA# FOR ALL REPAIRS 
reasonable price on . | / | 
any floppy found hz»: 
on the market. 
WE SPECIALIZE IN BASE PRICE INCLUDES: R E PA : R S 
e First $20 in parts FREE @ 30 Day Warran 
ee ae BE 96 Diagnostic Tests @ No Additional Labor Cost 


e@ No charge for common components 
® Drive exchange for drives too costly to repair . 


piky independent Technical Service 
21610 Lassen St., Suite 6, Chatsworth, CA 91311 

818-882-7747. & 

OO IO OE OR OO 


GEMS Call For Current Pricing. May Be Less Than Advertised. 


Ask About Systems Discount. All Systems Are Assembled & Tested. 


YOU MAY NOT SEE IT HERE, BUT WE MAY BE ABLE TO GET AT A SAVINGS TO YOU. CALL! 
C1 SEND INFORMATION ON: 


B54" - 863 
8” - °73 


(Add 510 for 
Double Sided Drives) 


OO OOOO ORE OR EG Og Oe 


. 
%, 


¥ 


QUALITY COMPUTER PRODUCTS (408) 946-2494 


*(_] 640K Motherboard OK ........... $ 98] L) 20 MB WD File Card Fits-in-a-Slot.... $549 

[] 640K Turbo 8MHZ Motherboard @K 119} CJ 20 MB ST-225 Seagate w/Cont. .. 398 

[_] 640K Ram Set ...................08.. 75| CJ 20 MB ST-4026 40 ms wo/Cont. . 529 

(] Multi-1/O (ser- par al « Disk Cont.) 0.2... 34| C) 30 MB ST-238 w/Adeptec Cont... 499 

*_] Floppy Disk Controller ........... CALL} (] 30 MB ST-4038 F/H 40 ms wo/cont. . 629 
1 40 MB ST-4051 Seagate wo/cont. . 714 - 


[1] Monochrome Graphics Card w/Printer 78 
“*_] Color Graphics Card 57| (J Speedstor Formatting % for ST-4051 59 
CJ Color Graphics w/Printer Card .... 75 
*(_] 135 W Power Supply ............... 65 
[1 150-180 W Power Supply ......... 74 


SHARP PC-7000 IBM Compatiable 
MS:DOS 2.10, 320KB, Exp 704, 2-360K Dr. 


LJ XT Lift-up Case w/Speaker .......- 3°] orDual Speed 4.77 & 7.34 Ser + Par C1] $1289 
LJ XT Case AT Look-A-Like ........... 49 | Veet © tion Ean ic : 


*(] Keyboard #5150 ............0.... 58 | au 
C1 Keyboard #5151 .................8. 65 | is 
C] Keyboard #5060 AT for XT ....... 65 Obi Ute Rr ee | 


[] 384K Multi Function (6 Functions) 


[-] AT Motherboard OK .............. 
“ir_] AT Case 


89 
p27] AT Power Supply 200-220W .... 119 
— all About Printers - OKIDATA + CITIZEN 
<c|_] 1a Ram Set for AT Motherboard ...107 ; ; 
a AT Keyboard #5060 5 TOSHIBA de sulee Others 


Sweats os 


euneep ea eeoeaesnoungeees . 


©(_] AT Floppy & Hard Disk Controller . 
-L] AT Teac 1.2 me Floppy Dr ....... 135 foe oe : 
(| AT Mult-1/0 (Ser * Par « Game) 72 


oe 
neokatare 
ee OSSD 


EGA nhanced Graphics Adaptor : 
D 169 256K, 64 Clr, IBM compat. C] $248 


443| CJ AVATEX Modem, Ext 300-1200 .. $89 
[1 E.G. Data Int. Modem 300-1200 . $169 
SOFTWARE - All MICRO SOFT & BORLAND 


epeoetetun een ase ese sean ne 


*&%* DEALERS WANTED *% DEALERS WANTED ** DEALERS WANTED xx 


INSTRUCTIONS 1) Check blocks for items wanted [7]. 2) Add cost for each item and subtotal. 
3) Add 4% shipping & handling or call for exact charge. Any excessive S/H charge will be refunded. 
CA resident add 612% sales tax. 4) Make, money order, or cashiers check payable to “GEMS” for 
total amount. 5) Mail in form with payment to: 

GEMS COMPUTERS 3064 Postwood Dr., San Jose, CA 95132 (408) 946-2494. 


NAME 


aneeeanva 


TO OUR CUSTOMERS WHO HAVE PURCHASED OUR PRODUCTS — THANK YOU. AGAIN! 


A/C PHONE# 


SHIP TO ADDRESS 
CITY 


we STATE pie ay 
ADD 5% FOR C.0.D. ORDERS * MOST ITEMS SHIPPED WITHIN 48 HRS. » THANK YOU FOR YOUR ORDER. 


ZIP 
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Table Ill 
continued from page 182 
A Primer on Word 
-Processors—With Three 


Examples 

McDonald, C.J. 

M.D. Computing Vol.1, No.2, 
1984, P. 26-35. 8 Pages. 

A physician requires a word 
processor to improve staff effi- 
ciency, the quality of printed 
documents and letters, and 
his/her communications skills. 
PeachText 5000 by Peachtree 


COMPUTER SHOPPER, AUGUST 1986 


Software Ltd., Image 3.0 by 
Micro Art, and Final Word by 
Mark of the Unicorn are three 
high-quality programs that 
make it easy to learn word pro- 
cessing on a personal com- 
puter. Two drawings illustrate 
the cursor control and the key- 
board layout. Six screen dis- 
plays illustrate some of the 
various commands and fea- 
tures of the three programs. 
Two displays show PeachText’s 
special print commands for 
various print formats and its 


unique thesaurus commands. 
A display shows Final Word’s 
special section commands for 
breaking a report into proper 
title subsections. A display 
shows Image’s outstanding 
graphics capabilities. 


A Sampling of Hardware and 


Software. 
Roberts, K. 
Medicine & Computer Vol.1, 
No.2, Jan. 1984, P. 50-55. 5 
Pages. 

There are 600 to 1000 medi- 


cal practice management sys- 
tems. Not all available systems 
were included in this buyer’s 
guide. Each system listed had 
to have a good physician fol- 
lowing or a good reputation or 
the confidence of the Medicine 
& Computer magazine staff. 


A Suitable Case for Treatment. 
Parkinson, J. 

Sifo Group 

Middle East Computing 
No.18, Dec.-Jan. 1984/1985, 
P. 21-23,25. 3 Pages. 


Computers have made in- 
roads into medicine in the Mid- 
die East. Computerization be- 
gan in the 1970s, but was not 
suited for available technology 
conditions. Bilingual systems 
have been a major problem. 
Computers are generally used 
for administration, patient ad- 
ministration and diagnosis and 
treatment. They are also used 
for planning. Microcomputers 
and software packages have in- 


continued on page 192 


Personal Pascal 
continued from page 181 
why there would be any trou- 
ble doing this but I haven’t 

tried it yet. 


The GEM library is what | 
-you really buy the Personal | 


Pascal package for. I love the 
way the manual puts this. 
“One of the most powerful 
features of the Atari 520 ST is 
the GEM desktop environ- 
ment. From a programmer's 
standpoint, using GEM in a 


STOP 
HACKING 
AND START 
WINNING! 


Dog and Pony Programs 
from Software Exchange 


f— Thoroughbred and Harness 
fi Racing Analysis Package 
g ° Handicap thoroughbred and 
fa hatness races in 5 minutes ° 
. pees and quick * two pro- 
95 


grams. 


|a Enhanced ae ae and 

'@ Harness Racing Analysis - . 
Handicap any race in 10 minutes 
with this enhanced analysis « 
two programs... $49.95 


Greyhound Racing Analysis 
Package « Handicap any race 


in 5 minutes « simple and quick #: 
$29.95 a 


(a Enhanced Greyhound Racing § @ 
Analysis Package « Handicap @) 


a any race in 10 minutes with this § 
ee enhanced program... $49.95 


f@ Up to 12 past performance data 

/@ entries analyzed: track lengths, 

% speed ratings, times, odds, post 
positions, positions at stretch 
and finish positions. With com 
plete instructions. 


TO ORDER: Specify disk or cas- 


sette, program(s), and computer a 
type: Apple li+, llc, fle, Atari, 
IBM PC and compatibles, Com- 


modore 64/128 and VIC-20, TI-99/ Fa 
4A, TRS-80 Model Ill/4, Color fa 


Computer, and Model 100/200. 


Include check or money aida SS 


plus $2 for postage and handling. 
C.0.D.s accepted. 


Write to: 

Software Exchange® 
PO. Box 5382-C 

W. Bloomfield, Ml 48033 
PHONE: (313) 626-7208 


program can be almost im- 
possible. Personal Pascal in- 
cludes a GEM/Pascal library 
that provides an easy interface 
to GEM.” I find myself in total 
agreement with this. I have 
tried in the past to work with 
the GEM stuff with the 
Developer package from Atari 
and almost gave up due to the 
frustration. While the 
GEM/Pascal library doesn’t 
make window and event 
management as easy as falling 


off a log, it does make it 


manageable. 


The GEM/Pascal library © 


compresses most of the func- 
tions into roughly one hundred 
Pascal procedures and func- 
tions. Yes this is a lot of pro- 
cedures and functions but there 
is a lot to GEM. All of the 
functions and procedures are 
well explained with a usage ex- 
ample for each. OSS points out 
that not all the features of 
GEM have been incorporated 
into the GEM/Pascal library. 
They do however include all 
that most people would ever 
use. And if you must access a 
GEM feature not supported in 
the library you can still access 


it via a direct call to GEM 


through the use of “C-type pro- 
cedures and functions,” which 
is a way Personal Pascal pro- 
vides for the programmer to 
reference subprograms written 
and compiled with a C or 


assembly compatible with the 
Digital Research’s link68. © 

All and all Personal Pascal is 
a good package. But what real- 
ly makes me recommend it 
highly is the support that OSS 
provides their customers. I am 
convinced that the people at 
OSS really care about the end 
user of their products. For ex- 
ample, due to the nature of 
compilers it is impossible to 
create a running program that 
doesn’t include some copy- 
righted code from the com; 
pilers libraries. 


Many companies make you - 


pay additional fees or royalties 
if you want to distribute or sell 
programs compiled with their 
product. Not OSS. All that 
they require is that you let 
them know that you might 


_ distribute programs. And that 


if you do that you include 
notice of OSS’s copyrights in a 
form visible to the user of your 
program, displayed no less pro- 
minently than any similar 
notice of your own. 

OSS also provides technical 
support to registered users of 
Personal Pascal. They have a 
support group that will answer 
questions during working 
hours (Pacific time), they have 
set up a BBS for 24 hour sup- 
port, and they can be reached 
via Compuserve (user 
72477,3703). So far I have on- 
ly used their BBS system and 


RESPONSE CENTER 


GIVE YOUR COMPUTER PRODUCTS — 
THE COMPETITIVE EDGE THEY DESERVE! 
YOUR OWN TOLL FREE 800 NUMBER 
INCLUDING A 24 HOUR, 7 DAY A WEEK ~ 
RESPONSE CENTER TO RECEIVE YOUR CALLS. 


ALL FOR AS LITTLE AS $65.00 A MONTH! 
~ MESSAGES - SALES LEADS - ORDERS - 


_ WE PROVIDE THE VITAL LINK 
BETWEEN YOU AND YOUR CUSTOMERS! 


1-800-821-5226 


ACTION 800 TELESERVICES 


found it well worth the cost of 
the call to California (I live in 
Florida). 

There are some known bugs 
in this version 1.01 that are ex- 
plained on the BBS covers, in- 
cluding information on fixes 
and work arounds. The routine 
Bring to front (used in window 
management) was misnamed 
Bring to front, though the 
manual refers to it by the cor- 
rect name. Also numbers 
sometimes appear in the ITEM 
SELECTOR dialog where 
they don’t belong. And the 
Delete Dialog call sometimes 


_ causes crashes. OSS has a patch 


program available for 
downloading to fix these plus 
a few more fairly obscure bugs. 

There is a problem with the 
PASLIB file causing undefined 
symbols if you try to use the 
Cmd_ Arg or Filename func- 
tions. If you need to use either 
of these you must tell Personal 
Pascal to make two _ passes 
through the PASLIB file by 
putting the name PASLIB in- 
to the “Additional Link Files” 
box in the “Linker Option” 
dialog. 

The routines IO Check and 
10 result will not work unless 


they are declared to be EX- | 


TERNAL. If you need to use 
them you will need to use the 
following declarations: 
Procedure IO Check (on : 
Boolean); 

EXTERNAL; 
Function IO Result : Integer ; 


EXTERNAL; 

The files on the BBS are not 
all bug reports or fixes. OSS 
also has many example pro- 
grams and informational 
documents for downloading. 
The document on file IO using 
GEMDOS calls is a must get. 
Also the programs showing 
GEM/pascal library stuff being 
used are extremely helpful. 

The only trouble I have run 
into that wasn’t covered on the 
BBS has to do with using Per- 
sonal Pascal on a two drive 
system. I am used to using Tur- 
bo Pascal on my other system 
where I run the compiler in my 
A: drive and have all the source 
and include files in the B: 
drive. Personal Pascal however 
is set up assuming that all 
library and include files will be 
resident on the disk with the 
compiler. It will read source 
code from and write output to 
the B: drive just fine but if you 
have any include files or 
libraries B: drive Personal 
Pascal will not access them 
unless you supply the full path 
name in your include directive 
I.E. {$1 b:Myconst.inc}. 

Taken all together the prob- 
lems with the package are 
minor, and can easily be work- 
ed around until OSS can fix 
them. The strong points of Per- 
sonal Pascal far outweigh the 
weak ones. I can sum up my 
feeling on it in two words: 
BUY IT. You will be PaBDy 
you did. 
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and the address of the ptsin ar- 
ray into register a4. 


Once we have the addresses 
we need, we move the x value 
and color value into the arrays. 
The y value is inverted to put 
0,0 at the lower left of the 
screen. When everything has 
been moved into place, we per- 
form the put pixel call to turn 
on a pixel on the screen. 


The line routine is very 
similar to the put pixel routine, 
but we now have two x values 
and 2 y values. We also have 
to convert the color value into 
bit plane values. The routine 
given handles all the details. 


Listing 3 is a simple peek 
function written in assembly 
language. This function was 
left over from the previous 
column. 

If you would like to save © 


yourself the trouble of typing 
in the programs that appear 
here, send $6 to: Shopper ST 
Disk, 3456 Willis Drive, 
Titusville, FL 32796. 

Be sure and ask for Disk 1, 
it contains the programs from © 
the June, July and August 
Hacking The ST Columns. 

Next month, we will have 
more assembly code, and let- | 
ters from our readers. Keep 
‘em flying. e. 
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X-Rated Adult games Apple Public Domain 
with high resolution pictures, two disks 
$24. Free Catalog with purchase or send $1 
for catalog payable to: H.M. Technology, 
Dept. 1207, 1204 Ave. U, Brooklyn, NY 
11223. 8-84 


MAIL MERGE 


STAR INDEX 
SPELLSTAR 


WORDSTAR) sme. 


WordStar SpellStar 
MailMerge Starindex 


Appli-Card CP/M Board 
For Apple Hl, Ile, 11+ 
$149 


This package includes WordStar version 
3.3, SpeliStar, MailMerge and Starindex. 
Also included is an Appli-Card CP/M board 
(made by PCPI, also sold as Starcard) with 
’ CP/M 2.2, Z80B processor running at 6Mhz, 
70 column display without an 80 column 
card (80 column display with an 80 column 
card). One year manufacturer's warranty. 
List Price $870 ............. ONLY $149 
WordStar Professional (WordStar, 
MailMerge, SpeliStar, Starlndex) List Price 
995. tie tea ceded eke x Solas ONLY $119 
Appli-Card CP/M Board - With CP/M 2.2 List 
Pricé $475 2. badeudaveasotes 44 ONLY $99 
For more information on these and other 
super bargains, look for BCE’s red pages in 
this issue. 


BCE 1-800-545-7447 
Ask for Operator 28. 


YARD SALE! Apple hardware, software, firm- 
ware -- up to 70% off! Send for free list, 
stamp appreciated. Stuff like Electric Duet, 
Word Processing Programs, Alf Music 
Card, more. Paul Raymer, 3464 Townhouse, 
Las Vegas, NV 89121. 6-79 


(109) ATARI COMPUTERS 
FOR SALE 


400/800 RAM Boards- 48K/52K for Atari 400, 
32K for 400/800, 16K for 800, Assembied, 
Tested, and Guaranteed or BARE boards 
with instructions and schematic. Donald 
Retzlaff, Rt. 1, Box 795, Quinlan, TX 75474. 
SASE for more information. 8-81 


ATARI ST OWNERS 


Free Details on Program and Information 
Exchange. Send SASE. Sample newsletter 
$3. ASTUN, 6157 South 700 West, Murray, 
Utah 84123. (7-84. 


Atari 800 48k with basic cartridge and power 
supply. Excellent condition $95 plus ship- 


ping. Frank Candela, 12430 SW 109 Terrace, 


Miami, FL 33186. 305-274-8705. 


$$$WIN with Thoroughbred, Harness, 
Greyhound Handicapping Software...$29.95, 
enhanced...$49.95. Free information. Soft- 
ware Exchange, Box 5382, W. Bloomfield, Mi 
48033. 313-626-7208. 8-81 


(110) ATARI SOFTWARE, 


PERIPHERALS 


$5000 of used Atari hardware, software, and 
books for sale. All items are priced at $5 ex- 
cept for the larger hardware. Example Atari 
Writer Plus and 1020 printer for only $5 
each! Send S.A.S.E. for complete list. Gary 
A. Creamer, 278 Route 4, Columbia Rd., 
Nesco, Hammonton, NJ 08037. 


520ST owners!! Upgrade your single sided 
drive to double sided! Completely compati- 
ble with all ST software and peripherals. 
$95. AIC, 2600 Mar Vista Drive, Aptos, CA 
95003. 408-688-5000, 1-800-242-7776. 8-90 


xk 


ATARI 520/1040ST CARTRIDGES 
YOUR PROGRAM ON CARTRIDGE 
in single or large quantities provides: 


e low cost, diskless applications, * program 
copy protection, e data durability & reliabili- 
ty. Typical 64K (1) $69; (10) $49; (1000) $29; 


COMPUTER SHOPPER, AUGUST 1986 


Pricing 128K (1) $159; (10) $139; (1000) $49. 
ANSI VT100 CARTRIDGE 


Full terminal emulation with user configura- 
tion plug. Does not require disk drive. 


NODE COMPUTER SYSTEMS 
916-265-4668 
408 Broad St., Nevada City, CA 95959.8-80 


ATARI SOFTWARE 
CLEARING HOUSE 


Tired of paying $8 a disk for Public Domain 
Software? Try A great new way of obtain- 


_ ing software. Swap copies of your software 


for some from our Data Base. Details and 
1 year Membership fee $10. Introductory of- 
fer so don’t wait, send today. Atari Software 


Clearing House, clo Wayne Tolson, 590 Aiden - 


St., Ludlow, MA 01056. 8-81 


Arcade Masters! Figure eight auto racing 
challenges you. Maximum skill required! 
$5/disk ppd. 130XE/x4800/400 computers 
48K No Basic. Rascom, 22128 Newkirk 
Avenue, Carson, CA 90745. 8-82 


Atari 1 Meg. upgrade for 520ST $299. 
504-386-2329. 6-79 


Atari 400/800 Programmers Guide, 1984, 
Sams, 494 pages, Reg. $21.95, NOW $7.99. 
CLI, Attn. Woulfe, 5624 Grand Ave. South, 
Minneapolis, MN 55419. 6-82 


Atari 520ST development kit includes 
assembler, ‘“‘C” compiler, linker, editor, 
utilities and Icon/RCS diskettes. $49.95 for 
all 5 diskettes. Patrick Eberhart, POB 
280151, Tampa, FL 33682. 6-79 


Atari 520ST/1040ST Development kit. In- 
cludes ‘“‘C”’ compiler, assembler, linker, 
editor, utilities and ICON/RCS programs. 
$49.95. Patrick Eberhart, PO Box 280151, 
Tampa, FL 33682. 8-84 


Atari 520St Software! STwrite, STfile, STac- 
countant, STdraw $8.95 each; Sixteen 


520ST Public Domain disk available $6.95 © 


each; Any 3 $19.95. 10 for $59. All 20 $99. 
Frugalware, 23 East Green, West Hazelton, 
PA 18201. 8-81 


Atari 800 software + peripherals for sale. 
Cheap or trade for C64 software. 200 + soft- 
ware items. Send for price list. Barry 
Stengie, PO Box 320, Old Ocean, TX 77463. 


Atari Service Manuals with Schematics pro- 
viding complete technical information are 
now in stock for the following Atari pro- 
ducts: 520ST, 800XL, 1050, 810, 600XL, 
400/800, 5200 - Your choice $20 each or 2 
for $35. Free shipping if you mention this 
ad. Call 805-927-4667. VISA/MC/COD or 
send to Electronic Dimensions, PO Box 1846, 
San Luis Obispo, CA 93406. 


Attention 520ST owners! Memory dump pro- 
gram with Hex, Decimal ASCII formats now 
available. Requires ST Basic $12.50 disk. 
RASCOM, 22128 Newkirk Avenue, Carson, 
CA 90745. 5-80 


Attention 520St memory upgraders! Pro- 
blems? Use the new 520ST megabyte 
memory upgrade trouble shooting guide! 
Get that extra 512k $7.50 ppd. Rascom, 
22128 Newkirk Ave., Carson, CA 90745.6-82 


CRAZY EIGHTS 


800/XL/XE. Machine language. Colorful 
graphics, Easy joystick card play. $14.95 
postpaid. Craig Preator, 412 South 36th 
Street, Billings, Montana 59101. 5-80 


Checkbook Pius for 64K Atari computers 
provides the features of more expensive 
computerized checkbooks at a fraction of 
the price. Checkbook Pius keeps track of 
multiple accounts, provides for 16 budget 
categories, handles non-numeric transac- 
tions, searches for checks by description, 
number, or budget category, and more. 
Complete documentation provided. $19.95. 
A-Plus Enterprises, 3790 Blenheim Rd., St. 


Joseph, Mi 49085. 6-79 | 


Computer Hardware expansion projects you 
build yourself, our step by step manuals 
show you how. Catalog $2 refundable on 
first order. KLUGE SYSTEMS, PO Box 297, 
Little Creek, DE 19961. 7-79 


Free Software with every order. The best in 
Public Domain software for your Atari 
800/800XL/1200XL/130XE/520ST. $4.95 for 
8-bit disk/$6.95 for 520ST disk. Other offers 


included. Patnor, POB 370782, El Paso, TX . 


79937. 4-80 


Frequent Flyer system for Atari 800/800XL. 
Requires 48k and disk drive. Allows you to 
keep track of your airline mileage, awards, 
and flights. Also permits setting up files for 
awards and participating companies. $12 
pp. T.C. Graham, 35036 Old Timber Road, 
Farmington Hills, Mi 48018. 7-79 


Get Rich with your micro computer! learn 
how to cash in on this billion dollar in- 
dustry. For free details write: Premiere 
Books, 5798 Fenwood Ct., Mentor, OH 
44060. 6-82 


ff you like computers and you enjoy 
greyhound races, then you'll love 
SHERLOCK’S HOUNDS’ amazingly accurate 
computerized analysis. Easy to use 
disk/cassette with instructions for Atari 
(XLs and XEs), TI-99/4A. For fast, insured 
delivery, send $29.95 today to Swift Creek 
Software, PO Box 1562-T, Cambridge, MA 
02238. Mastercard/VISA welcome. 7-80 


MICROMOD 3.0 


The database with BUSINESS POWER for 8-bit Ataris 
HOME USE—save on disks/disk-switching. 
Up to 5000 (SD) or 10,000 (DD) records/disk. 
Simplified operation/instructions for home 
users. Intelligent interpreter cuts procedure 
to 1/6th. Only 1 drive required. 
EDUCATION—Features/operation/flexibility 
comparable to the best 16/32 bit software. 
Set up any accounting system. 400 pg. 
manual lays flat! Discounts available. 
BUSINESS—Immediate programmer phone 
support. Customizing your specs, $200. Im- 
mediate menu access to 65 3-6K relocatable 
program modules minimizes disk- 
switching. NOT COPY PROTECTED! 

6 FULLY INTEGRATED PROGRAMS FOR ONLY $79.95! 
DATED RECORDS MANAGER—GIL, A/R, A/P, 
Statements, scheduling. Spread 
sheet/calander/graphs. ‘‘Melting pot” 
listings-mix account info/addresses/WP 
text/formatted text/keyboard input. 
Single/double entry. 

DIRECTORY FILER—For mail, labels, cust in- 
fo., etc. Address sort. 1500/3000 
addresses/disk. 

BUSINESS TEXT WORD PROCESSOR—49 
screen buffer, standard. features, spelling. 
POINT-OF-SALE INVOICING* —(2 drives req.) 
Time billing option. Stock update. Data 
stored in general ledger. Many extras. 
Remote XE terminal. No disk-switching. 
BILLINGICONTINUOUS STATEMENTS*—(2 
drives req.) All listing options selectable for 
each customer include track/list prior un- 
paid invoices. Continuous forms includes 
“melting pot” listings, form letter, form 
name lists. , 


_ INVENTORY *—2000 (1 SD drive/1 disk) to 


8000 (2 DD drives/2 disks) model numbers. 
Supplier/descricost/MOQ/4 price s/stock at 
3 locations for each item. Easy edit/up- 
date/search. All listings, COGS, orders. 
*Requires SpartaDOS and XL or XE 
computer. 

800/XL/XE, any drive(s) or hard drive, any 
printer. Speed with ram upgrades com- 
parable to 16/32 bit system. Too many in- 
dividual features to list. Full sorting. 
Printed/blank forms. Standard and business 
utilities, loan/interest schedules, etc. Op- 
tional payroll available. 

TOTAL MICROMOD 3.0 PRICE, $79.95. Full 
guarantee. Full credit for MICROMOD 2.4 
programs. Orders, info requests to: 
MicroMiser Software, 1635-A Holden Ave., 
Orlando, FL 32809. Tel. 305-857-6014. 


MIDI SOFTWARE 


For ATARI computers including ST, by 
Hybrid Arts. Program your synthesizer! 
Casio CZ101 & 1000, MID! hardware, more. 
Send SASE to Livewire, Dept. CA, 79 
Shrewsbury, Oceanport, NJ 07757. 
201-870-3115. 


Public Domain software at discount prices. 
Communications software, business pro- 
grams, games and utilities programs. Send 
SASE for current price list. Second Stage 
Software, PO Box 1694, Daphae, AL 36526. 

8-81 


SUPRA MODEM $62.75; Print shop $29.97; 
COMPUTEREYES $105, with camera $310; 
COMPUSERVE $25.97; PRICES INCLUDE 
SHIPPING. To order send payment or call. 
VISA/Mastercard accepted. PA residents 
add 6% Sales Tax. SENECA SOFTWARE, 
1104 Seneca Drive, R.D. #2, Harmony, PA 
16037. 412-452-8418. 


Software/Hardware for the Atari XE/ST. Up to 
30% below retail. Hundreds of items. ST 
Music Studio $36; HABA Writer $56; H&D 
base $70; Gemini Printer SG-10 $225; NX-10 
$259; Ultima Il $43; HABA 10-MEG drive 
$640; Avetex 1200 baud $110. Send $1 for 
complete catalog (refund w/order). Specify 
system. Multi Video, PO Box 246, E. 
Amherst, NY 14051. 8-84 


$$$WIN with Thoroughbred, Harness, 
Greyhound Handicapping Software...$29.95, 
enhanced...$49.95. Free information. Soft- 
ware Exchange, Box 5382, W. Bloomfield, Mi 
48033. 313-626-7208. 8-81 


All new/ as new: 1010 recorder, $25; 1025 
printer, cover $115; DrJvs Larry Bird, 
AtariWriter, SyncCalc, Synfile+ $20@. Lan 
ny Aldrich, N. Springfield, VT 05150-0073. 


802-886-8121. 


(111) HOMEBREW 
SYSTEMS 


_Add 5 megs to most anything, 2 drives and 
Search ; 


controller kit $300. Digital 
803-877-9444. 


TOUS Eat ENE oe 
Designibuild your own CPU, SSI/MSI, Com- 


plete plans, kits available. Send SASE for 


details. Cox Computer, PO Box 1581, 


Titusville, FL 32781-1581. 8-80 


(112) NORTHSTAR 
COMPUTERS 


(112B) NORTHSTAR 
SOFTWARE, PERIPHERAL 


NorthStar Horizon- 4/DSDD, clock, 
floating/point, 64k, APC/Basic, WordStar, 
CPM 2.2, DOS 5.2, diskettes, documenta- 
tion, terminal, printer, $1200. 313-540-7936 


EST. 6-79 
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(113) COMMODORE 
COMPUTERS FOR SALE 


(113A) COMMODORE 


COMPUTERS WANTED 


_ WANTED: DEAD or ALIVE C-64 computers, 


1541 drives etc. If DEAD - please describe 
in particulars the cause of death - we love 
bizzare stories. IF ALIVE - price must be 
right - we will kill! Suicide or Homicide - we 
wil pay for the funeral. If you are a killer or 
just a silent witness - write in confidence 
(please include prices): Stretcherman’s 
Computer Syndicate, 244 Fitzwater Street, 
Philadelphia, PA 19147. 


Wanted: Dead or Alive 
Commodore-64’s & 1541’s & selected 


peripherals. Give us a Holler! Shreve 
Systems, 318-865-6743 4-9pm CST. 7-81 
san 0 A TS A 


(113B) COMMODORE 


SOFTWARE, PERIPH. 


100’s of FREE SOFTWARE programs for 
Commodore-64 and C-128 (plus CP/M pro- 
grams for C-128) available through the 
PUBLIC DOMAIN USERS GROUP. For infor- 
mation send large SASE to PUBLIC DOMAIN 
USERS GROUP, Box 1442-CO, Orangepark, 
FL 32067. 8-81 


100’s of Public Domain Programs for the 64. 
Catalog $4. Games, reference, utilities, you 
name it, we’ve got it, give us a try. Spatial 
Concepts, POB #5662, Orlando, FL 32855. 

7-79 


10 CENTS EACH 


C64 PD programs on disk @ NO rental fees 
@ NO postal fees @ NOclubs @ NO future 
junk mail @ Just good software, low prices, 
fast service, large variety (over 3700 pro- 
grams), a two week guarantee, and per- 
sonalized service. My introductory offer - 2 
disks - both full of programs on both sides. 
The first has 50+ sample programs, and 
the second, my listing (in program form) for 
printer or screen. These + information, 1st 
class mail $5.00 (Less than 10 cents each 
program!) 


NO STRINGS 


Eric Richardson, 6230 Lark Valley, San An- 
tonio, TX 78242. 8-80 


ADULT ADVENTURE Game ‘‘Naughty 
Bytes.” A Ribald Masterpiece for your com- 
puter $20.00. Life - Machine Code version 
of the classic pattern producing program, 
$10.00. Hyperball Pinball at its best, $12.00. 
All programs on Commodore-64 disc. Go 
Berzerk - Get all three programs for a mere 
$35.00. FTW Products, 154 S. Hedges St., 
Dayton, Ohio 45403. 7-83 


AMAZING AMIGA 


Amazing Public Domain software for your 
Amiga computer. Hundreds of programs 
now available. Only $6.95 per disk. Call or 
write for latest catalog or send $14.95 for 


‘our “Best of Public Domain” disk. Personal 


Technologies, Box 1967, Merritt Island, FL 
32952. 305-452-4737. . 8-80 


AMERICAN HOLIDAY 


Obtain highest score fast, accurately using 
YOUR C64/128 and OUR NEW IMPROVED 
software and Word Lists. SASE to: Com- 
puter Masters, Box 652525S, Miami, FL 
33265-2525. 7-80 


AN ADVANCED BBS FOR YOUR 
COMMODORE-128! Dial-Your-Match is the 
most advanced BBS you can buy for your 
Commodore-128. Just look at the features: 
Uses all the features of 128 mode, 300 or 
1200 baud, 40 or 80 column mode, use any 


“number of disks or hard disk, Fully 


automatic - maintenance free, Full MAT- 
CHMAKER ability, 20 Message Boards, 20 
Information Files, Add comments to public 
messages, You can easily define up to 50 
questions, -Text-file based, easily edit 
anything! Full Userlevels - start a subscrip- 
tion BBS, Easily restrict caller access, All 
SYSOP functions can be used remotely, 
Edit files or catalog the disk remotely, 
BUILT-IN TERMINAL MODE WITH 


DOWNLOAD! Function keys to chat, or 
dump caller, Split-Screen mode for SYSOP 
to browse caller, Musical alert to chat 
mode, Automatic accurate time and date, 
Dial-Your Match Network to exchange 
messages with other Dial-Your-Match BBS 
systems, Network forwarding to avoid toll 
calls, Automatic network transmission at 
night, High-Tech Wait-For-Call Panel, Writ- 
ten in BASIC, unprotected on disk, Many 
more advanced features. Order by Modem: 
use 300 Baud and dial 1-818-840-8066 or 
send SASE to: BBS-128, PO Box 6055, Bur- 
bank, CA 91510. — 


Adventure Gamers deal of the Year! Collec- 
tion of 15 Adventures that will give you 
weeks of enjoyment. All this for $7.50! Also, 
Best 100 programs for $10; Or Best utilities 
or games for $7.50 each. We also have over 
500 education programs: and back-ups for 
as low as $1.50. Order Today! Rose Soft- 
ware, 910 10th Ave. East, Suite 204, Seattle, 
WA 98102. . 


Amazing Offer! When you order our C64/128 
program collection, consisting of: Three 
double sided disks with over 150 great pro- 
grams for only $19.95, you get an additional 
disk collection with over fifty programs, in- 
cluding; A word processor, copy program, 
business, games, and educational pro- 
grams absolutely FREE! That’s over 200 
programs on eight disk sides for only 
$19.95! Free catalog. VAS, Box 4632, Hunt- 
sville, AL 35815. © 7-79 


Amiga Public Domain Software. Graphics, 


-Music, More! Free Catalog. Pegasus Soft- 


Amiga Public Domain Software! $6.95 each. 
10 for $59. All 20 $99. Frugalware, 23 East 
AmigaBasic 512K. Mandelplot plots the 
Mandelbrot set as fast as some “‘C”’ ver- 
sions. Supercluster simulates a star cluster. 
Hypercube draws a ‘4 dimensional” cuve. 
Life is the old standard. All for $10 un- 
protected. Richard Smith, 1706 127th Ave., 
Tampa, FL 33612. 7-80. 


Attention Commodore 64 FOOD LOVERS. 
The ‘COMPUTER CHEF” IS HERE!!! Com- 
puter cookbooks are now available for you 
on diskettes for your Commodore 64. They 
are quick and easy to use. We have Ap- 
petizers, Candy, Casseroles, Chicken, 
Quickie Meals, Desserts, Mexican, 
Microwave, Singles/Doubles and Seafood 
with many more available soon. Eash DISK 
sells for $5.95; any 3 selections $15.95; a set 
of any 10 $49.95. Please send check or 
money order to Computer Chef, Crescent 
Branch, PO Box 7451, Golden, CO 80403. 
Send SASE for additional information. 
Please allow 3 to 4 weeks for delivery. 
303-642-0330. 8- 85 


Attention Commodore 64 
FOOD LOVERS. 


The ‘‘COMPUTER CHEF IS HERE!!!’’ Com- 
puter cookbooks are now available for you 
on diskettes for your Commodore 64. They 
are quick and easy to use. We have Ap- 
petizers, Candy, Casseroles, . Chicken, 
Quickie Meals, Desserts, Mexican, 
Microwave, Pies, Singles/Doubles, and 


‘Seafood with many more available soon. 


each DISK sells for $12.95; any 3 selections 
$29.95; a set of any 10 $99.95. Please send 
check or money order to COMPUTER CHEF, 
Crescent Branch, Po Box 7451, Golden, CO 
80403. Send SASE for additional informa- 
tion. Please allow 3 to 4 weeks for delivery. 
303-642-0330. 2-79 


BACKUP SERVICE! For C64 and full 128 
mode software. All recent releases! Lowest 
rates! Immediate delivery! Send $1 for 
catalog and newsletter. Sysmatic Softworx, 
GPO Box 31615, Orlando, FL 32862. 8-80 


Best Public Domain and backups: multiple 
disk sets at special prices. 100 best pro- 
grams for $10; 15 Adventure games $7.50; 


_ over 50 Utilities for $7.50; or best games at 


$7.50; Special! All 4 sets for $22. Also in- 
dividual programs as low as 25¢. Order to- 
day or send for catalog. Rose Software, 910 
10th Ave. East, Suite 204, Seattle, WA 
98102. ; 


Bible Study Guide Program for Commodore 
64, $6. L. Armstrong, PO Box 12192, Norfolk, 
VA 23502. 


